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Art ik1 er. annoncer eller programmer 
der .ønskes optaget i bladet, sendes 
til Kim Andersen eller Preben Lund 
Bånd og disk sendes retur. 


LEDER 

I den sidste tid har vi, gennem 
Johnny, haft en del kontakt med det 
tyske computerfirma HSH samt klub¬ 
ben MOS. 

Nu er MOS begyndt at lave et 
blad, THE MSX MAG, som, så vidt jeg 
er orienteret, udkommer 1 gang hver 
2. måned. Det interessante er imid¬ 
lertid at de har tilbudt os rettig¬ 
hederne til bladet, her i Danmark. 
Dvs. at vi i så fald kunne udvide 
vores blad med stof fra THE MSX 
MAG. Men den pris vi indtil videre 
har fået er så høj at det ville 
være fuldstændig urealistisk at 
sige ja tak - så indtil videre 
fortsætter Syntax'en status quo. 

Hvad der måske er endnu mere in¬ 
teressant er at HSH efterhånden har 
et meget bredt og godt udvalg af 
udstyr til MSX, og de nu er inter¬ 
esseret i at kommer mere ind på det 
nordiske marked, bl.a. med annoncer 
her i bladet. Det kan måske medvir¬ 
ke til en renæssance for MSX. 
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■IMHHf BASIC COMPILER TIL MSX i O© 2 



BflØQØ ØØGDI?D tBB 
tf D1 K10S ti 00 S 

En BASIC compiler - det rnå være 
sagen for enhver hjemme-program- 
snedker, der sidder og fortvivler 
over BASICs begrænsninger mht. has¬ 
tighed. Og nu findes den i ©n PD 
(Public Domain) udgav© på diskette 
til MSXI og MSX2 med mindst 64 K. 
Til Danmark fra The Land of the 
Rising Hifi via ©n tysk MSX bruger¬ 
klub (detaljer hos Kurt von Surt) 
kommer..... 

MSX-BASIC-KUN (BASIC COMPILER) 

meget passende lavet af en fyr 
kaldet J, Suzuki. 


Er det så verdens ottende vidunder 
- næppe... 

Er de kompilerede programmer hur¬ 
tigere - ja, meget... 

Er der mangler og begrænsninger 
ja, en del... 

Er den let at bruge - indenfor 
visse grænser, ja... 

Osv.... osv. 

Vi tager lige tre nanosekunders hi¬ 
storie og facts om compileren. 

Den stammer som sagt fra Japan hvor 
en version på modul sælges (Formod¬ 
entlig ©n mere fuldstændig version 
end denne PD version). Der er ikke 
tal© om en compiler i gængs for¬ 
stand hvor man først skriver sin 
soures (sit BASIC program), deref¬ 
ter kører det gennem en compiler og 
til slut står med ©t ©ksekverbart 
program som er uafhængig af compi¬ 
leren. Nej, man har compileren 
liggende som en slags alternativ 
fortolker som kan kobles ind og ud 
efter behov. Ved at skære i speci¬ 
fikationerne i forhold til den 
normale BASIC fortolker (mindre 
nøjagtighed i beregninger, simplere 
fejlcheck, kodeoptimering og hvad 
ved jeg) har man opnået nogle til 
tider imponerende hastighedsforbed¬ 
ringer. 


Disketteversionen loades ind i RAM 
fra adresse &H4000 til &H7FFF. Det 
er samme sted moduler maser sig 
ind. Med nogle tricks får man com¬ 
puteren til at tro, at computerens 
egen RAM i virkeligheden er ©t 
modul...og sagen er bøf. 

Det er muligt at køre hel© BASIC 
programmer under den ny© compiler/ 
fortolker med kommandoen CALL RUN. 
Som alternativ kan man afvikle ud¬ 
valgte dele af sit program ved at 
aktivere compi1 er/fortolkøren med 
kommandoen CALL TURBO ON og slå den 
fra igen med CALL TURBO OFF. That's 
all, folks!. 

Hvad er den så god til..,. 

Simple heltalsbersgninger, loops, 
indlæsning af DATA, trigonomeri ske 
funktioner med begrænset nøjagtig¬ 
hed, POKES og VPOKES (Der kan vir¬ 
kelig scores kasse ved at styre 
sprites vha. VPOKE!). Det lyder som 
et katalog over hvad de fleste 
spilleprogrammer får brug for. Læg 
dertil, at det er muligt at placere 
maskinkodestumper direkte i pro¬ 
grammet og man har et godt værktøj 
til formålet. 

Hvad er den uegnet til. 

Beregninger med stor nøjagtighed, 
håndtering af tekst-strenge (som 
defineres med længde 256 bytes 
uanset deres reelle længde og iøv- 
rigt ikke kan udveksles mellem d© 
dele af programmet, der kører under 
compiler/fortolker og de dele, der 
kører under den normal© BASIC!), 
stort set alle systemkommandoer 
(f.eks. BASE, NEW, LIST) samt MSX 
DISKBAS1C kommandoer og andre I/O 
faciliteter. Desuden er der be¬ 
grænsninger i en række grafikkom¬ 
mandoer og de fleste interruptdrev- 
ne kommandoer som ON STOP, ON IN¬ 
TERVAL, KEY() ON osv. Begrænsninger 
og undtagelser er der mange af, og 
de er beskrevet i den medfølgende 
tekst så lad os i stedet se et par 
eksempler på brug. 













BASIC COMPILER TIL MSX 


O O 2 ■*■■*■*■*■ 


Dei følgende program sender ti 
sprites på tværs af skærmen ved at 
VPOKE direkte i video rammen. Alt 
ialt 2500 VPOKEs som ved normal 
BASIC afvikling tager ca. 17 se¬ 
kunder . 

100 SCREEN 1 
110 FOR z%=0 TO 9 

120 SPRITE$ <z*/.)=CHR$ (255) +STRING$ (6 
,129 )+CHR$(255) 

130 NEXT z% 

140 FOR z%=0 TO 9 
150 VPOKE &HlB00+z%#4,10+z%#10 
160 NEXT z% f 

170 TIME=0 

180 CALL TURBO ON 

190 FOR z%=0 TO 255 

200 FOR zz*/.=0 TO 9 

210 VPOKE &HlB01+zz‘/.*4 ,z% 

220 NEXT zz% 

230 NEXT z% 

240 CALL TURBO OFF 

250 PRINT TIME/50 

Hvad tager det...hvad tager det.... 

Nu skriver vi RUN og så.Øhhh, 

0.32 sekund. Det er ca. 50 gange 
hurtigere. 

Man kunne have udeladt linie 180 og 
linie 240 og i stedet have skrevet 
CALL RUN da programeksemplet ikke 
indeholder nogen kommandoer, som 
compileren ikke kan snuppe. 

I øvrigt arbejder POKE kommandoen 
flere hundrede gange hurtigere end 
under BASIC. 

Og så lidt dårlige nyheder omkring 
nuværende BASIC programmer. Jeg har 
ikke blandt mine egne programmer og 
dem hentet fra MSX bladet fundet 
et, der kunne køre uden modifikati¬ 
oner. Og de, der er baseret på 
interruptdrevne muligheder kræver 
den helt store omskrivning. Endvid¬ 
ere må den kode, der genereres, jo 
ligge et sted, nemlig samme sted 
som BASIC koden. Det begrænser i 
praksis programmernes størrelse til 
ca. 10 K ifølge den medfølgende do¬ 
kumentation . 


Det skal for god ordens skyld til¬ 
føjes, at der til compileren er 
udviklet en musikcompiler, der gør 
det muligt at spille musik sideløb¬ 
ende med den øvrige programafvik¬ 
ling ved hjælp af interrupts. 

Konklusionen må være, at compileren 
er en virkelig hjælp til at sætte 
fut i en bestemt type programmer. 
Nemlig action spil. Man kan utvivl¬ 
somt finde isolerede anvendelser i 
andre typer programmer. Men compil- 
erens måde at håndtere tekststrenge 
på gør den jævnt hen ubrugelig til 
administrative formål. Programmer, 
der skal bruges med compileren, 
skal nok være skrevet med dens 
begrænsninger i tankerne. Er de 
det, er den meget let at bruge. Et 
plus skal den også have, fordi den 
ser ud til at være meget robust 
overfor tumpede programfejl. Jeg er 
kun en enkelt gang gået uhjælpelig 
ned og har måttet slukke computer¬ 
en. Man kan forvente forbedringer 
på 10-30 gange for de fleste kom¬ 
mandoer som compileren accepterer, 
og det er slet ikke ilde og i al 
fald bedre end en del lige så be¬ 
grænsede compilere jeg har set til 
Commodore og Amstrads hjemmecomput¬ 
ere . 

Som vejledningen si ger....brug den 
til 'real time games, grafik flip 
og demoer '. 

SLUT HERFRA 
Jesper Schultz-Pedersen 


Kommentar: 

Denne Basic-compiler som Jesper 
netop har omtalt, kan I kære 
medlemmer også komme i besiddelse 
af. I og med det er et P.D. program 
kan vi sælge det gennem MSX-BIB. 
Music-compileren der omtales, 
fungerer så dårligt at den ikke vil 
komme i BIB lige med det samme. 

Kim 










**** F A NT ASM A •**•*--* 



pøs daipaa 


10 ' 

20 '* 


* 

30 

* FANTASIDA * 

* 

40 '* 


* 

50 ' w 

ET SPIL FRA TAPAN 


60 '« 



70 '« 

TIL ALLE mSX'LERE 


80 '* 



81 '« 

fra TOHwwy s musik 

* 

82 



83 '» 

SYNTAXEN 1988 


84 ' 


« 

90 ' 


100 ' 

110 SCREEN 1 ,2,0: C0L0R 1 5,1 , 1 : CLS : \< 
EY OFF;WIBTW32 

120 LEF l NT A-Z.-B I Dl C<1),T(1,5) 

130 COSUS 1010:HS=1000:P$="s1Oml 000 
0 i' 1 20 ( 32o6" 

140 OOSUB 1090.-PLAY P*+"BEBEB£FGAB" 

.-FOR 1=1 TO 2000,-MEXT 

150 SC-0 ; RE-3 .• RO=1 : TT«1 000 : A^RND (-1 

) 

1 GO GOSUB 820 

170 X=1 G : y~1 2 : 01 =1 : H=1 3 : L=1 8 ; Cl =0 : ID 
= 1 5:N~18 : .-m=0:NN=-l 
180 RX=17:RY=18:RR~~1 : 02 =1 :C2=0;SX= 
1A:By=18:BB“1:03-1;C3=Q.-T=TT 
1 90 FORI=0TO1 

200 OMT(l,RO IDOB G)GOSUB 610,620,63 
0,640 

210 W£XT:GOSUB650:B=T<0,R0 FIOL G) :D 
B=T(1,RO mOB G) 

220 GOSUB 680 .-GOSUB 660 .-GOSUB 760.-P 
LAyP$+"c©gto" 

230 LOCATE 13,23.* PR i NT"REALY l " ; : FOR 
I =1T03000 :NEXr 

240 LOCATE 1 3,23:PR I NT SPC(G) ; 

250 s=srickCO)OP snck(i) 

260 IF S>1 AWBS<5 THEN 01-2:X-X-(X< 
29) 

270 IFS>5 THEN01-1 :X=X->-(X>2') 

280 y®y+((S=1 ORS-2 ORS-8) ANLY>3)~ 
CS>3 AWBS<7 ANLY<2 1) 

290 GOSUB650 

300 ON B GOSUB 330,380.440,490 
310 OW BB GOSUB 330,380,440,490 
320 GOTOSSO 

330 Cl »Cl XOR 1.-IFC1 GDT0350 
340 H=H+SGW(X-H) : L-L + SGN(y-L) 

350 GOSUB 610 


360 IF ASS(X-H)<2 ANB ASS(y-~L)<2 GO 
T0790 

370 RETURN 

380 IF ABSCX-iri)<2 THEM NN=SGN (Y-N ) : 

mm=o 

390 IF ABS(y-W)<2 THEM mm=SGN(X-D1) .- 
NN=0 


400 M=ff\+m:N=N+NN 
410 GOSUS 620 

420 IF ABS(X-ITI) <2 ANB ABS(y~W) <2G0T 
0 790 

430 RETURN 

440 IF RX < 3 OR RX>28 THEM 02^02 XOR 
3 :RR=RR *-1 

450 RX=RX+RR:C2=C2 XOR 1:IFC 2 THEN 
Ry=Ry+$GN(y-Ry > 

460 GOSUS 630 

470 IF ABS(X-RX) <2 ANLABSCY-RY)<2 G 
OTO 790 
480 RETURN 

490 IF By<4 OR By>20 THEM BB^BB»-1 
500 BY=SY+BB:C3=C3+1:IFC3<3 GOTO 52 
0 

510 C3=0 .- I FX <BX THEN BX=BX-1 .-03=1 £ 
LS£ IFX>BXTHEN BX=BX +1 .-03~2 
520 GOSUB 640 

530 IF ABS(X-BX) <2ANL ABS(y-By)<2 G 

0TO790 

540 RETURN 

550 V=61 UU+X+Y*32 

560 F=0 .- F=F- (VP££k(V)-97) :F=F-(VP£E 
kCV+1)=97) 

570 F=F-( VP££k(V+32)"97) .-F=F-(VP££k 
(V+33)=97) 

580 IF F THEM GOSUB 710 

590 T=T-1:GOSUB 660:IF T<1 GOT0790 

GOO GOT 0250 

610 PUT SPRITE 2, <H*8 ,L*8-1 ) , 15,4,-R 
ETURN 

GRO PUT SPRITE 1 , (fn*8 , W*8-1 ) , 1 1 , 3 .- R 
ETURN 

630 PUT SPRITE 3 ,(RX«S, RY*8~1 ),8,02 
.■RETURN 

GUO PUT SPRITE 4 , (BX«S , By**8~1 ). 5,03 
:RETURN 


650 PUT SPRITE 5 , (X*S , y « 8-1 ) , 1 5,01 .- 
RETURN 

660 LOCATE 23,0: PR I NT US I /VG"T I IDE### 


# " . t ■ 

670 RETURN 

680 IF SC>HS THEM HS=SC 

690 LOCATE 1,0.-PR I NT USING"HI ##### 

0 SCOR£#####0" ,-WS,-SC,- 

700 RETURN 

710 LOCATE X.y.-PRIWT" LOCATE X, 
Y + 1.-PRINT" ",- 








**** FANTASHA -M-N-N-N* 


720 IF F>1 THEN B0=5 ELSE BO=1 
730 FOR 1=1 TO F:PLA Y P$+"eg": AP=AP-1 
: SC=SC+BO :GOSUB680:N£XT 
740 IF OP < 1 THEA/ RETURA/ 880 
750 RETURN 

760 L«=RIGHT#<" "+STRI NG$(RE , "h ") , 3 
0) 

770 LOCOTE 31-LEN(L$) ,1;PR INTLf; 

78 0 RETURA/ 

790 PLAY P$+"hgec":FOR 1=1 TO 5000:N 
EXT 

800 RE-RE-1:IF RE <0 GOTO 970 
810 GOTO 170 

820 CLS : VPOkE BA5£(6)+1 2 , &H91 
830 AP=50:FOR 1 = 1 TO AP . ? 

840 R1=RND(1)*28+2;R2=RND<1 )*t9 + 3 
850 IF VPE£k(6144+R1+R2^32)~97 GOTO 
840 

860 LOCATE RI ,R2:PR I NT"a";:NEXT 
87 0 RETURN 

88 0 PLAyP$*"s3m20001' 1 50(1 GoGefff+gS 
©/8d©8cd8o5bo6c8. o7c.8oGc 4" 

SAO LOCATE 1 0,1 0 : PR INT"ROUND CLEAR" 

900 T=T-T (TIOD 10: IFTC1 GOTO 920 
Al 0 FOR 1 = 1 TOT01 0 :T=T~10:GOSUB GGO 
:SC=SC+1 :GOSUB G80:NEXT 
A20 GOSUB 950:RO-R0+1:TT=TT+(TT>200 
)*1 00 

A30 FOR 1 = 1 T05000: A/EXT 
A40 GOTO 160 

A50 FOR I=1T05 :PUT SPRI TE I , ( 0 ,20A);N 
EXT 

A60 RETURN 

A70 GOSUB 950:PLAyP$+"t'140t16//+g 9 + 
8aa+8bb8go7c8. oGg8o7ccL" 

A80 LOCATE 1 1 , 1 0 :PRI NT"GOfOE OVER"; 
AAO FGRI=1T02000:IF STRIG (0) OR ST 
RIG CD GOTO140 ELSE A/EXT 
ylOOO GOT01 40 

1010 FOR I=1T04:A^="": F0RJ=1 TO 16:R 
EAD Q«:FOR k=1 T02 
1 020 A$=A«+CHR«<VALC'<Sh"+frilD*(Q* ,k* 
2-1 ,2))): A/EXT k , 7: SPR I T£«< l)=A$:A/£X 
T 

1030 FOR 1 = 1 TOS:REOL 0:FORJ=OTO 7:RE 
0L0$ 

1040 VPOkE A*S+J. VAL("Ah"+A*) :NEXTJ 
. I 

1 050 FOR I=5 T01 3:READA*:VPOkE BASEC 

6)+l , VAL<"<Xh"+A$) : A/EXT 

1060 FOR I -<SH1 80 T0&H2L7:VPOkEI,VPEE 

k( I ) ORVPEEkC I )/2: A/EXT 

1 070 FORI=0TO5:FORJ=0TO1 :R£ADQ:T(7, 

I )=Q: A/EXT J, I 


1080 RETURN 


1090 

CLS 

:C= 

9:LOCATE 0,23 


1100 

/>* 

PRI 

NT" 

a a 

a 

11 10 

PRI 

NT" 

aaaa a a 

a aaa 

a" 





1120 

PRI 

NT" 

aa a a 

a a 

1130 

PRI 

NT" 

a a a a 

a 

1 140 

PRI 

NT" 

a a a 

a 

1 150 

FOR 

1=1 

TO 7:PRINT:NEXT 


1160 

LOCATE 

9,23;PRIWT"PUSH 

SPACE k 

Ey": 





1170 

FOR 

1=1 

TO7:PR 1 MT :NEXT 


1 180 

IF 

STR 1 G C 0) OR STRiG(1) 

THEN R 

ETURN 




1 190 

VPOkE 

BAS£(6)+12,C*16+1 

o 

l! 

O 

X 

o 


R 1 2 

1200 GOTO 1180 

1210 DATA 071/,7/7/,f/ee.eeee,////, 
7/7/,3/1/,0/03 

1220 DATA 00c0,/0/0,/8/8,/8/8,/8/8. 
/OeO,cOeO,/8e0 

1230 DATA 0003,0/0/,1/1/,1/1/,1/1/, 
0/07,0307,1/07 

1240 DATA eO/8,/e/e,//77,7777, f ff f , 
fefe ,/c/8,/OcO 

1250 DATA 0101,0303,077/,7d3d,1d0/, 
0f1f.1f1e.3830 

1260 DATA 8080,cOcO,eO/e,bebc,b8/0, 
/0/8./S78, IcOc 

1270 DATA 001 / , 3/3/ , 7/7d .76.76., 7/5/ , 
3b3c,3/3/,1eOO 

1280 DATA 00/8,/c/c,/ebe,foebe,/e/a, 
dc3c,/c/c,7800 

1290 DATA 97,04,08 ,7e,df,bf ,//, 7e , 3 
c 

1300 DATA 104,38,7c,/e,d6,/e,7c,3c, 
Oe 

1310 DATA al ,f1 .fl .al ,a1 ,a1 ,a1 ,91 ,f 
1 

1320 DATA 1,2,3,4,1,4,1,3,2,4,2,3 


£1' virkeligt' flot' spil fra 
JOPON 

Lu er det hvide spøgelse, saml 
æbler op og undgå de andre 
spøgelser 

Hej /ra Johnny B GOOD 












*•*•*•* STANDS DISKETTEN * 


mm mm ss esss; sas: isa gas ngs gfggs mn £S3i 8 

QOLF AF CLAUS B. 


ØIFflØBØ 

BDØKSffffSta 

Mange har sikkert været ude for 
at man loader et program ind 
fra diskettestationen, og selv 
om programmet forlængst er kørt 
ind står diskettestationen og 
snurrer videre. 

Her er en lille rutine, som kan 
afhjælpe dette problem ved 
maskinkodeprogrammer: 

Prgrammet er set i den 
hollandske klub C.U.C's medlem¬ 
sblad. 

10 Rem Programmet er lavet at 
Paul Karman 

20 Maxfi 1es = 0: Clear 20,&h8400: 
cis 

30 Files: Print :Print 
40 Input "Vælg program; A$ 

50 Bload A$: Time=0 :Poke 

&HF18F,1 

60 Def usr = Peek (&HFCBF) + 256* 
Peek (&HFCC0) 

70 If Time < 2 Then 70 else 

Z=USR (0) 

80 End 

Det der sker er, at adressen 
&HF18F sættes lig nul når disk¬ 
drevet kører - og lig een når 
diskdrevet stoppes. 

Det kan være, at programmet 
ikke virker på din MSX-maskine, 
men fortvivl ikke for her 
kommer et program som 

undersøger hvilken adresse, din 
diskettestation bliver styret 
f ra: 

100 rem Af Paul Karman 

110 rem program til søgning af 

120 rem adresser. 

130 cis 

140 locate 10,0: Print "peek 
Tæller" 

150 locate 8,2: Print ”&H 

0” 

160 y=2 

170 for x= &HF000 to &HF500 


180 locate 10,y:Print Hex$(X) 

190 b=dskf(0):A=Peek(x):Time=0 
200 if time < 2 goto 200 
210 if a<= peek(x) then 300 
220 for J=1 to 3 
230 b=dskf(0):Time=0 
240 locate 19,y:Print Using ”### 
peek (x); 

250 if peek(x) then 240 

260 if time>200 then Print ”<-” 

270 for i = 1 to 500: next 

280 next j 

290 Y= Y+1 

300 next x 

310 end 



000 .!? ai? ønatoø Ø n 


1 0’ ' Go] f 
20 ' 

3 0 ■'By Claus B 
40 ' 

50 ' 


6 0 HI = 1 G 0:H$="Sv i ” 

70 COLOR 1,12,1:SCREEN 1,2:B$="" 

3 0 UY= 1.6 

A C. 

90 DATA 00011000,00111100,01111110. 

1 o00 i 1 oo611111111’ 0 11 1 1 1 1 & , 00 1111 0& 

i 00 REST0RE 

110 FOR 1 = 0 TO 7: READ A$ : B$=B1h-CHR-& 
< UAL < "&B" -t-A$ ) ) : NEXT I 
120 SPRITE£( 0)=B$ 


130 
140 
150 
téO 
170 
180 
190 
200 
210 
1 1 11 


SC=0:KU=7 

S 

CLS:PRINT ." SUI Golf"sPRINT 
COLOR14:PRINT:PRINT 
PRINTSTRING$<43,210) 

COLOR 1 : PRINT ," H i:" HI ;" BY "m 
PRINTSTRING$<43, 172) 

PSETC0, ISO) , 5 : DRAW" r 255d 1 lr-255u 










*-■*"«■* GOLF AF CLAUS Bu * TYDELIG SKRIFT **** 



220 PAINT< 1,181) ,5 
230 ' 

240 ' 

250 ' 

260 LOCATE 24, 18:PRINT"Kugler-!"KU 

270 'Draw circle 

280 A=RND<-TIME)*160+35 

290 B=RND<-TIME)*100+85 

300 Cl RCLE<A, B) ,9,1 

310 PSET<A,B),1;DRAM"u30f7g7" 

320 PAINT(A+2.B-19),1 
330 'Mave Ball 
340 H=0:T=0 
350 ' 

360 SOUND 0,10 0+ < H/3 ):SOUND 7,62:SO 
UND 8,10 

370 PUTSPRITE 0,<H,180),15,0 
380 H=H+UY:IF H>255 THEN T=T+1:H=1 
390 IF T=3 THEN GOTO 540 
400 Z$=INKEYHi 

410 IF Z^=CHR*<32) THEN GOTO 430 
420 GOTO 360 
430 ' 

44 Q 

450 SOUND 8,0 

460 FOR U=180 TO B STEP -1 

470 SOUND 0,U:SOUND 8,10 

480 PUTSPRITE 0,<H,U),15,0 

490 NEXT M 

500 H=H-A 

510 IF H>7 OR H<-7 THEN PO=0 ELSE P 
0=1 

520 IF PO= 1 THEN SC-SC+5-T + 1 :ClRC.LE 
<A,B),9,12:PSET (A,B) ,12:DRAW"u30f7g 
7”:PAlNT < A+2,B-19),12:VY=VY+.04:GOT 
O 240 ELSE T=31 GOTO 390 
530 GOT0530 

540 FOR KL= 0 TO 15:SOUND 8 ,KL 

550 FOR KE=0 TO 25:NEXT KE:NEXT:BEE 

P 

560 i<U=KU-1 

570 IFKU=-1 THEN GOTO 590 

580 GOTO 150 

590 C0L0R15,1,1:CLS 

600 PPINT:PRINT 

610 PRINT,"Score:"SC 

620 PRINT:PRINT 

630 IF SO HI THEN PRINT," Navn:" 

5 :H$="":HI=SC ELSE 690 
640 X$=INPUT1><1) 

650 IF X$>"z" OR X$<"a" THEN 640 
660 X$=CHR$<ASC<X$)- 32) 

670 BEEP:PRINT X$;sH*=H$+X$ 

680 IF LEN<H$)=3 THEN 690 ELSE 640 
690 PRTNT:PRINTTAB<10)"Tryk en tast 

700 A*=INPUT*< 1) 

710 GOTO 70 



0008 'J'u'BSB. B 
ØKBQ[? , i?8 8 2 

Nogen har nok undret sig over at 
mine udprintninger altid er så 
klare og tydelige og det er let 

•Forklaret nemlig . . 

Brug NYE Farvebånd og print ud i 
NLQ + Bolded dette gør afc printeren 
printer hver linie over 4 gange 

Hvis nogen har en STAR printer 
Hermed en lille rutine til ind¬ 
stilling til bladets spalter 

10 'BLADSPALTE BREDDE 35 TEGN + BOL 
D + NLQ 

20 CLSt PRINT" PRINTER INI TERET TIL J 
5 TEGN SPALTE + BOLD + NLQ 
30 LPRINTCHRø (27) / " Q" $ CHR$ (SO) ; 

40 LPRINTCHRø (27) ; 11 1 " ; CHRø (15) ; 

50 LPRINTCHRø (27) G" ; 

60 LPRINTCHRø (27) n" x 1" / 

Når du har kørt denne og skriver 
LI ist går printeren ikke udenFor 
de 35 tegn 


Hvad med lille sk ri Ft på Epson 
compatible jo kør denne hør 

10 LPRINTCHRø (27) ; " SO" ; CHRø (15),° CHR 
ø(27) (" 3" ,°CHRø (15) 

20 CL S: PRINT" PRINTEREN INI TERET TIL 
MINDSTE SKRIFT" 


Så mmr mkriftøn Bådan fmr ud 
Og dmt ør da Flot k/arøt ikkømandt 


Ja dette var orden© se at finde 
pungen frem og køb et nyt farvebånd 
OGSÅ REDAKTIONS MEDLEMMERNE UPS 

Var der nogen der følte sig truffet 

Hej fra Johnny B Silkeborg 
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MIDI INTERFACE TIL JOY STICK PORT I tt-**-* 


G30Q0 OdffBBPflag 
ff'B i JØ? ØffOSK 
PØBff 0 

Ja defc er rigtig, det kan Jade sig 
gøre at lave et sådant Midi 
Interface og dette her er til Midi 
Out signaler. 

I materialer er det c& kr 40,- s& 
bare gå i gang. 

Ma ter i a 1 eforbrug: 

1 Joystick hanstik 

1 Din stik hun 

2 Modstande 220 Ohm 
1 IC kreds 7404 

1 liil® stump ledning. 

El 1 ers sku Ile tegn i ngen være til at 


ben nr 1 til joystick stik ben 8. 

Ben 2 Din stik - stel forbindes til 
Ic'en ben 7 og endvidere til 
joystick stik ben nr 9. 

SÅ skulle alt fungere isæt det 
færdige interface i Joystick port 1 

Du taster de 2 Midi bin programmer 
ind og får derved to binære 
maskinkoder formatet til at bruge 
dem får du i Midi Message Maker og 
du kan s@ en af dem i brug i min 
simple demo. 

Med Midi Jigs kan du generere en 
lang række toner som sendes til dit 
Midi instrument som så spiller dem. 

Hvis du ikke laver fejl nogen steder 


















■*■*■*■* HIDI INTERFACE TIL, JOY STICK PORT I **** 


10 ' tf************************* 

20 ' * MIDI MES S AGE MAKER TIL * 
30 ‘* interface: JOY-PORT 1 * 
40 '* JOHNNY B SYNTAXEN 1988 * 
50 '************************** 
60 ‘ 

70 'DETTER ER FORMLEN TIL 
80 ‘MIDI.BIN 
90 ' 

100 'defint a-z 
110 ‘bload "MIDI.bin" 

120 ‘defusr-&hc800 
130 ‘poke &hc8a2, <data> 

140 'a^usr(O) 

250 ' -- 

160 ' 

170 'DETTER ER FORMLEN TIL 
180 ‘MIDI2.BIN 
190 ' 

200 ‘defint a-z 

210 ‘bload " MIDI2.bin " 

' defusr»&hc800 
230 1 a-’usr(data) 

240 


1 ‘MIDI2.BIN 

2 'TIL MIDI INTERFACET 

3 ‘I JOY STICK PORT 1 

4 ‘JOHNNY B MUSIK 

5 ‘SYNTAXEN 1988 

6 ' 

10 DATA 3A, F8, F7, F3, 4F, 6,8,11,8,0,2 
1,2F, C8, CB, 9,38,4 

20 DATA 3E, FF, 18, 2, 3E, F, 77, 5, 28, 4, 1 
9,18, EF, 0, 3E, F 

30 DATA D3, AO, 3E, FF, D3, Ål, CD, 98, C8, 

3E, F, D3, AO, 3E, FF, D3 

40 DATA Ål, CD, 98, C8, 3E, F, D3, AO, 3E, F 

,D3,A1,CD, 98, C8, 3E 

50 DATA F, D3, AO, 3E, FF, D3, Ål, CD, 98, C 

8, 3E, F,D3,A0,3E,F 

60 DATA D3, Ål, CD, 98, C8, 3E, F, D3, AO, 3 

E, F, D3, Ål, CD, 98, C8 

70 DA TA 3E, F, D3, AO, 3E, FF, D3,A1, CD, 9 

8,C8,3E, F,D3,A0,3E 

80 DATA FF, D3, Ål, CD, 98, C8, 3E, F, D3, Å 

0, 3E, FF, D3, Al, CD, 98 

90 DATA C8,3E,F,D3,A0,3E,F,D3,A1,CD 

, 90, CB, C9, 0, 0, 0 

100 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0 


110 DATA C9,1A, FF, FF, FF, FF, FF, 0, 0, 0 

, 0, 0, o, o, o 

120 ‘ 

1000 ‘LIGGER MASKINKODEN På PLADS 
1010 FORA -&HC800TO&HC8AF: READX$ 

1020 POKEA, VAL("&H‘+X$) :NEXT 
1030 ' 

1040 ‘GEMMER MASKINKODEN SOM BINÆR 
FIL 

1050 BSA VE‘MI DI 2. BIN‘, &HC800, &HC8AF 



1 'MIDI.BIN 

2 'TIL MIDI INTERFACET 

3 'I JOY STICK PORT 1 

4 ‘JOHNNY B MUSIK 

5 'SYNTAXEN 1988 

6 ‘ 

10 DATA 3A,A2, C8, F3, 4F, 6,8,11, B, 0,2 
1,2F, C8, CB, 9, 38, 4 

20 DATA 3E, FF, 18, 2, 3E, F, 77, 5, 28, 4,1 
9, 18, EF, 0, 3E, F 

30 DATA D3, AO, 3E, FF, D3, Ål, CD, 98, C8, 

3E, F, D3, AO, 3E, FF, D3 

40 DATA Al, CD, 98, C8, 3E, F, D3, AO, 3E, F 

, D3, Al, CD, 98, C8, 3E 

50 DATA F, D3, AO, 3E, FF, D3, Ål, CD, 98, C 

8,3E, F, D3,A0,3E,F 

60 DATA D3, Ål, CD, 98, C8, 3E, F, D3, AO, 3 

E, F, D3, Ål, CD, 98, C8 

70 DATA 3E, F, D3,A0, 3E, FF, D3, Al, CD, 9 

8,C8,3E,F,D3,A0,3E 

80 DATA FF, D3, Ål, CD, 98, C8, 3E, F, D3, Å 

0, 3E, FF, D3, Al, CD, 98 

90 DA TA C8, 3E, F, D3, AO, 3E, F, D3,A1, CD 

, 90, C8, C9, 0,0,0 

100 DATA 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 0 
0,0,0 

110 DATA C9,1A, FF, FF, FF, FF, FF, 0,0,0 

, 0, 0, o, o, o 

120 ‘ 

1000 'LIGGER MASKINKODEN På PLADS 
1010 FORA »&HC800TO&HC8AF: READX$ 

1020 POKEA, VAL (" &H" +X$) :NEXT 
1030 ' 

1040 'GEMMER MASKINKODEN SOM BINÆR 
FIL 

1050 BSA VE'MIDI. BIN‘, &HC800, &HC8AF 











*■*** MIDI INTERFACE TIL JOY 3TICK PORT 1 -H-*** 


10 'simpel demo af midicontrol 
20 'jeg har brugt ©n DX7 
30 ' 

100 'BL0ÅD"midi2.bin 
110 DEFUSR-&HC800 
120 'SKIFT PROGRAM NUMMER 
130 A-USRC&HC0):'midi kanal Okanal 
0- nr 1 

140 A-USR(&H3) :'hex nr 3 - prg nr 
4 

144 ' 

145 'husk kanal + prg - Hex$(nr-1) 
150 ' 

160 'SPILLE EN TONE 

170 A^USRC&HSO) :'StatuerneIding nod 

e kommer 

180 A«USR(&H3C) :'node &h3C - node 
(G3) 

190 A“USR(&H7F) :'anslags styrke 
195 ' 

200 FOROITQIOOQ:NEXT:'instrumentet 
spille tonen uafbrudt 
205 ' 

210 A-USRC&H9Q) :'StatuerneIding nod 
e kornn© r 

220 A“USR(&H3C) :'nod© &h3C - node 
(03) 

230 A ra USR(&H0) :'anslags styrke 
» 

tCi W W 

240 'da anslaget her angives til nu 
1 

250 'stopper instrumentet 
260 ' 

270 'læs min artikel om SM befaling 
280 'det er d© samme tal der gælder 
her 

290 'Hej fra Johnny B god fornøjel 

@3 


10 
20 
30 
40 
50 
60 
70 
80 
90 

100 RR^RND (-TIME) {KEYOFF 

110 CLS:PRINTSPC(28)"Midi Jig Gener 

at or" : LOCÅTE1,22 






tftfttittfttstittftttftftfittttftftfittftftftftftftftftftftftftf 
tt >t 

* MIDI JIG GENERATOR TIL MIDI * 

* INTERFACET I JOYSTICK PORT 1 * 

* BRUGER MIDI . BIN FILEN * 

* JOHNNY B MUSIK SYNTAXEN 1988 * 

it # 

»ttftttftftftftftftftftftftftftftftftftftftftftftftftftftftftftf 

i 


120 PRINT'for MSX & CMC Midi interf 
ace 1988(c) P.Mulva 

ney & G. Landini " 

130 BLOAD "midi . hin":DEFUSR-&HC800: 
DR m &HC8A2 

140 CLS: INPUT' h Number of parts (1- 

6)"jS:IF S>6 OR S< 1 THEN 140 

150 DIM NT (S, 8, 6) : PRINT 

160 INPUT' å # times jig plays"; W: IF 

W< 1 GOTO 160 

170 PRINT 

180 INPUT' å Tempo 0-40 (0 fastest)" 
;ZZ:IFZZ<0 OR ZZ>40 GOTO 180 
190 PRINT 

200 CN m 0 ‘midi Channe 1 

210 NO-144 :V-100: INPUT' Wa i t for pro 

mpt before play (y/n)";A$ 

220 IF A$< >"y"ANDA$< >" n" GOT0200 
230 PRINT: PRINT: FOR P~1 TOS 
240 FOR B-l T07: FOR N-l T06:X-INT(R 
ND(1) *100+1) 

250 IF B“5 OR B°>6 THEN NT(P.5,N)«NT 
(P, 1, N) :NT(P, 6, N) -NT(P, 2, N) : G0T0620 
260 PRINT' å Genera ting NT (" ;P; " , " / 
B' n 11 • N • 11 ) M 

270 NT(P,B,N)-INT(RND(1) *15+1) 

280 IF B<>4 OR N<>6 THEN350 
290 I-ABS (NT(P, 4, 6) -NT (P, 1,1)) : J-NT 
(P ,4,6) : IFJ-11 AND NT(P,1,1)-14 THE 
N270 

300 IF J-14 AND NT(P,1,1)-11 THEN27 
0 

310 IF (I-OORI-30RI-40RI-50RI-60RI- 
70RI-90RI-11ORI-130RI-14)THEN360 
320 IF I m 'l OR (1-8 AND (J m 3 0RJ-40RJ- 
110RJ-12) )THEN270 

330 IF I-10 THENIF (J-20RJ-30RJ-40R 

J-l20RJ-13)THEN270 

340 IF I m l 2THENIF(J a, 20RJ m 30RJ* a 14) TH 

EN270 

350 IF N-l GOT0410 
360 IF (NT (P,B, N-l) m 40RNT (P,B, N-l) - 
11) THENIF (NT(P, B, N) -70RNT(P, B, N) -i 4 
) THEN270 

370 IF (NT(P, B, N-l ) m 70R NT(P,B,N-1) 
”14) THENIF (NT (P, B, N) ™40RNT (P, B, N) »i 
1) THEN27O 

380 IF ABS(NT(P,B,N)-NT(P,B,N-1) )-7 
THEN400 

390 IF (ABS(NT(P,B,N)-NT(P,B,N~1)) > 
4) THEN270 

400 IF B m 4 THEN IF N^6GOT0620 
410 IF X>20 OR N>3THEN470 
420 FORM-1 TO 3: IF (NT (P ,B ,N) >12 ORX 
<10) THEN440 












430 NT(P, B, N+M) -NT(P, B, N) +M: GOT0460 

440 IF NT(P, B, N) <4THEN430 

450 NT(P, B f N+M) -NT(P, B, N) -M 

460 NEXT.-N-N+3 

470 IF(N>4 ORX>37) GOT0600 

480 NQ-INT(RND(1)*30+1) :0N NQ GOTO 

550,550, 550,550,550, 550, 550, 550, 550 

,550 

490 ON NQ-10 GOTO 530,530,530,520,5 

20, 520, 520, 510, 510, 540 

500 NT(P, B, N+l) -NT(P, B, N) +2 :NT(P, B, 

N+2) -NT(P, B, N) +4: FORG-1 T02: GOT0560 

510 NT(P, B, N+l) -NT(P, B, N) +4 :NT(P, B, 

N+2) - NT(P, B, N) +2: FORG-1 T02: GOT0560 

520 NT(P, B, N+l) -NT(P, B, N) +2: NT(P, B, 

N+2) -NT(P, B, N) -2: FORG-1 T02: GOT0560 

530 NT(P, B, N+l) -NT(P, B, N) ~2:NT(P, B, 

N+2) m NT(P, B, N) +2: FORG-1 T02: GOT0560 

540 NT(P, B, N+l) -NT(P, B, N) -4:NT(P, B, 

N+2) -NT(P, B, N) -2: FORG-1 T02; GOT0560 

550 NT (P, B, N+l) -NT(P, B, N) -2:NT(P, B, 

N+2) - NT(P, B, N) -4: FORG^l T02 

560 IFNT(P, B, N+G) >15 THENNT(P, B, N+G 

) m NT(P, B, N+G) -7: G0T0560 

570 IFNT(P, B, N+G) < 1 THEN NT(P, B, N+G) 

m NT(P, B, N+G) +7: GOT0570 

580 IFN< 1THENIF (ABS (NT(P, B, N+G) ~NT( 

P, B, N+G-l) ) >4) THEN NT(P, B, N+G) -NT(P 

,B,N+G-2) 

590 NEXT.-N-N+2 

600 IF (N-4AND (X02-X/2) ) THEN FOR R- 
O TO 2:NT(P,B,N+R)-NT(P,B,N+R-3):NE 
XT R: N m 6 

610 IF B m 4 THENIF N-6THENN-5 
620 NEXT: NEXT 

630 GOSUB 860:FORB m l T08:FORN-1T06: 
IF NT (P, B, N) -I THEN NT(P, B, N) - 50: GO 
T0740 

640 IF NT(P,B,N)-2 THEN NT(P,B,N)-5 
2: GOT0740 

650 IF (NT (P, B, N) m 3 OR NT(P, B, N)-4) T 
HEN NT(P, B, N) ™NT(P, B, N) +51 : GOT0740 
660 IF NT (P, B, N) m 5 THEN NT(P,B,N)~5 
7: G0TO740 

670 IF NT(P,B,N)^6 THEN NT(P,B,N)~5 
9: GOT0740 

680 IF (NT(P, B, N) m 7 OR NT(P,B,N)-8) 
THEN NT (P, B, N) ~NT(P, B, N) +54: G0T074 
O 

690 IF NT(P, B, N) THEN NT(P,B,N)^6 

4;GOT0740 

700 IF (NT(P, B, N) -i O OR NT(P, B, N) -i 
1) THEN NT (P, B, N) - NT(P, B, N) +56: GOTO 
740 

710 IF NT(P, B, N) 2 THEN NT(P, B, N) - 
69: G0T0740 


720 IF NT(P,B,N)-13 THEN NT(P, B, N) « 
71: GOT0740 

730 IF(NT(P,B,N)-14 OR NT(P,B,N)-15 
) THEN NT(P, B, N) -NT(P, B, N) +59 
740 NEXT:NEXT:NEXT 
750 IF A$< >" n" THEN PRINT ' pross sp 
ace bar to play" 

760 IF A$<>"n" THEN B$-INKEY$:IF B$- 
"" THEN760 

770 FOR T-l TON:FOR P-l TOS:FOR Y~1 
T02:FOR B-l T08:POKEDR,&HBO;A~USR( 
0) :POKEDR, &H40:A-USR(O) .-POKEDR, 100: 
A m USR(0):FOR N-l T06'sustain on 
780 IF N-6 THENIF B™8 THENIF T°*W IH 
ENIF P-S THENIF Y-2 THENZZ-ZZ+5Q0 
790 PRINT'å playing NT C' ;F;" ;B; 

"," ;N; ";" :POKEDR, (NO+CN):A~USR(0) 
800 POKEDR, NT(P, B, N) :A~USR(0) :POKED 
R, V:A-USR(0) : ‘midi channel 
BIO POKEDR, (NO-CN) :Å«USR(0):POKEDR, 
NT(P, B, N) :A~USR(0) :FOR QT”1 TOZZ.-NE 
XT 

820 POKEDR, (CN+128):Å-USR(O):POKEDR 
, NT(P, B, N) : A^USR(O) :POKEDR, O: A«USR( 
0) : NEXT 

830 POKEDR,&HBO:A«USR(O):POKEDR, &H4 

O.-A-USR(O) :POKEDR, 0:Å-USR(0) :NEXT:N 

EXT: NEXT: NEXT'sustain off 

840 PRINT:PRINT' the Jig is up!" : 

INPUT'Aga in ",-AN$:IF AN$-" y" ORAN$-" 

i"' THENZZ-ZZ-500: G0T0750 

850 INPUT'Genera te again",-AN$: IF AN 

$-"y" OR AN$-" Y' THEN ERASE NT .-GOTO 

140 ELSE KEYON: END 

860 B-8.-F0R N-6 TO 1 STEP -1 

870 NT(P, 8, N) -INT(RND ( 1) *15+1) 

880 IF N<6 GOT0940 

890 CX-ABS(NT(P, 8, 6) - NT(P, 1,1)) :IF( 

NT(P,8,6)-7 OR NT(P,8,6)-14) THEN87 

O 

900 IF (CX«0 OR CX m 2 OR CX-4 OR CX- 
7 OR CX-9 OR CX-11 OR CX-14) THEN92 
O 

910 GOT0870 

920 L-ABS (NT (P, 8, 6) -NT(P, 4, 6) ) : IF(L 
-O OR L m 2 OR L-4 OR 1-7 OR L-9 OR L 
-11 OR 1-14) THEN960 
930 GOT0870 

940 IF (NT(P, B, N+l) m 4 OR NT(P,B,N+1 
) m ll) THEN IF(NT(P,B,N)-7 OR NT(P,B 
, N)-14)THEN870 

950 IF (NT(P, B, N+l) OR NT(P, B, N+l 

)“14) THEN IF(NT(P,B,N)-4 OR NT(P,B 
,N)-11) THEN870 
960 NEXT: RETURN 
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Nu borjar forstå delen av vår 
maskinspråksskola. VI kommer att gå 
Igenom att kommandon,programmering, 
assemblering, disassemblering samt 
andra finneser. Ni vet formodligen 
att Spectravideon består av tre 
huvudkretsar. Nåmiigen Z80 samt 
video och ljudchipet. Ni kommer att 
låra er att programmera Z80. Detta 
år ett namn på en 8-bitars krets 
som bla finns i ABC80, Spectrum och 
ZX81. Den tillverkas av foretaget 
Zilog och år vår Idens mest anvånda 
8-bitars processor. 

Vad år då skillnaden mellan 
maskinspråk och BASIC? Jo, framfo- 
rallt snabbheten. Maskinspråk år 
mycket omdståndigare att programme¬ 
ra men man kan åstadkomma resultat 
som man inte kan uppnå m.h.a BASIC. 

I sjålva verket år maskinspråk bara 
en massa koder(tal mellan 0 och 
255 (galler 8-bitars datorer.)) For 
att gora det hela lite låttare 
kommer vi att låra ut maskinspråk i 
form av assembler, som år ett mer 
forståeligt språk ån ett språk som 
bara består av en massa siffror. 
Assembler har nåmiigen en bokstav- 
skombination for varje kod tex 
kommandot LD som år en forkortning 
av ladda. 

Når man programmerar i assembler 
anvånder man mycket ofta det så 
kallade registerna. Vad år då 
detta? Jo, det kan enklast liknas 
vid BASIC:ens variabler. Till 
skillnad från BASIC har Z80 endast 
8 register, nåmligen A,F,B,C,D,E,H 
och L. Dessa kan hantera tal mellan 
0 och 255. En annan mojlighet finns 
och det år att slå ihop två regis¬ 
ter till ett registerpar, vilket 
medfor att detta par kan hantera 
tal mellan 0 och 65535. I sjålva 
verket anvånder man inte så hoga 
tal utan man brukar ange detta 
interval 1 mellan -32768 och 32767. 

Men om man bara har så få register, 
hur ska man då kunna spara så många 
olika tal som man antagligen beho- 
ver i s itt program? Jo, det gor man 


genom att lågga all viktig informa¬ 
tion i adresser i minnet, d.v.s att 
efter registret eller registerparet 
inte har någon direkt nytta av ditt 
utråknade vårde, så brukar man 
lågga undan detta vårde på en eller 
flera minnesadresser. 

Om vi tar ett enkelt assembler 
exempel, dår vi anvånder oss av 
kommandot ladda, så kan vi visa hur 
detta fungerar: 

I BASIC:en lågger man in vårde i 
minnet genom att anvånda kommandot 
POKE. Så vi borjar med att lågga 
t.ex vårdet 7 på adressen &hcd00. 

Pgrm: Forkl: 

Id a,(&hcd00) lågg vårdet på 

adr. SihcdOO (som år 
7) i register a. 

Id (&hcd01),a lågg reg. a-.s varde 
på adr. &hcd01. 

Genom att skriva in detta program, 
får man vårdet 7 åven på adressen 
&hcd01. Detta kan man se genom att 
skriva PRINT PEEK (&hcd01). Har 
programmet fungerat skrivs en sjua 
ut på skårmen. 

Nu finns det såkert några av er som 
klagar på att maskinen bara skriver 
SYNTAX ERROR, når ni forsoker att 
skriva in vårt eleganta exempel. 
Detta beror på att ni inte har 
någon assemblator (ha,ha). En sådan 
kan vara bra att ha om man vi 11 
gora storre maskinkodsprogram. En 
assemblator år ett program som man 
anvånder sig av når man skriver i 
assembler och inte i maskinspråk. 
Efter det att man skrivit in sitt 
assemblerprogram gor assemblatorn 
om detta program till maskinspråk 
som sedan kan forstås av datorn. 
Har man ingen assemblator år man 
tvingad att POKA in varje kod, så 
att datorn kan forstå ert maskinsp- 
råksprogram. Dessa koder kan man få 
i bocker som t.ex programmera Z80 
eller av oss, om ni skickar ert 











- 15 - 


1 


*-*-*•*■ SVEHSKA SI DAN 


BREV FRA NORGE 


namn och er adress samt ett svars- 
frimårke. Om ni inte har varken 
koder eller assemblator ar det lika 
bra att ge upp. Det går nåmi igen 
inte att låra sig assembler om man 
inte har minst ett av dessa forut 
nåmnda hjålpmedel. Kor man med 
koder ska man komma ihåg det hår 
med att dela upp minnesadressen man 
vi 11 lågga sin utråkning på i två 
delar och att den minst signifikan¬ 
ta delen ska komma forst. 

I programmet ovan såg du kanske (om 
du bara tånkte lite) att om regist¬ 
ret stod till vånster om adressen 
så skickades alltså vårdet från 
minnesadressen till registret och 
når det stod till hoger om adressen 
laddades alltså adressen med regis- 
tervårdet. D.v.s att LD fungerar på 
så sått att man laddar det forstå 
vårdet med det sista. T.ex LD a,b 
Dår får alltså a b:s vårde (a=b) . 

Med kommandot ladda kan man ladda 
register med register, register¬ 
par med registerpar, adresser med 
register o.s.v . Dock måste alltid 
ett register eller registerpar vara 
med så man kan inte ladda ett vårde 
direkt in i en minnesadress. Vi ska 
hår ge ett felaktigt exempel: 

Ld (&h!234),7 

For att du ska få 7 in i denna 
adress år du faktiskt tvungen att 
skriva så hår: 

LD a,7 

LD (&hl234),a 

Orsaken till att vi har gått igenom 
det så noggrant som vi nu har gjort 
år att vi vi 11 att al la ska forstå 
och att ingen bl ir efter så hår i 
borjan. Om ni vi 11 fråga något 
eller skicka efter ovanstående 
lista så skicka brevet till nedan- 
stående adress. 

Magnus Balldin 
Snickaregatan 9 
216 18 Malmo 
Sverige 

Det var allt for den hår gången och 
må era ovånner tro att assembler år 
en afrikansk matrått. 


mm PBA caøQog 

Sveinar Varren fra Norge har sendt os 
et brev med følgende forespørgsler: 

- Sveinar har fået fat på nogle .PIC 
(billede-) filer, og har problemer 
med at få loadet dem ind. Det drejer 
sig om "GARFIELD.PIC", "SJANT.PIC" og 
"SYLVEST.PIC". 

- Desuden er Sveinar interesseret i 
programmer, der kan tegne "Pin-up 
damer" på skærmen eller udskrive dem 
på printeren. 

Du kan ikke bruge .PIC-filerne på en 
MSX1 computer. De er beregnet til en 
MSX2 computer. Filerne indeholder kun 
grafikdata, og er altså ikke 
egent 1ige programmer. De .PIC fi 1 er, 
du har fået fat på stammer faktisk 
fra mig (Lars). 

Er du meget interesseret i computer¬ 
pi nup shows, er det værd at investere 
i en MSX2 computer, da der findes en 
del shows til den. Jeg har ikke hørt 
om nogle lignende shows til MSX1. 

Jeg har hørt om programmer, der kan 
udskrive pin-up damer på printeren, 
men de bliver ikke udskrevet som 
grafikdata, men som bogstavkombina¬ 
tioner . 

Ja, det var ikke meget, der var at 
sige om det, men jeg håber, at 
Sveinar har fået; svar på sine 
spørgsmål. 







'IMMH#- ANIMATION FOR MSX 


OG MUS 


ara o raa? q øgo 

i?øra mm a øø raaø 


750 C0L0R-REST0RE 
160 0PEN"GRP:"AS#1 
170 ' TITLES 
500 ' TITLES 

510 SCREENO: NIDTH80:COLOR 15,0,0:KE 
YOFF.’CLS 

520 PRINT" <ANIMAKE> VER. 1.0 


BY GABRIO" 


1 ' 

$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 

530 PRINT:PRINT"AUTO ANIMATION TOOL 

o * 

£ 

$$ 

$$ 

FOR MSX2 + MOUSE" 

5 1 

$$ ANIMATION PROGRAM FOR 

$$ 

540 PRINT:PRINT" MOUSE CLICK" 

4 1 

$$ MSX 2 OG MUS DU TEGNER 

$$ 

550 PRINT" LE FT CLICK : POINT SE 

5 ' 

$$ OG COMPUTEREN ANIMERER 

$$ 

T 3 CONNECT" 

6 ' 

$$ 

$$ 

560 PRINT" RIGHT CLICK:POINT EN 

7 1 

$$ (C) G LAND INI JAPAN 

$$ 

D (RETURN) 

8 ' 

$$ 

$$ 

570 PRINT"LEFT+RIGHT CLICK:POINT EN 

g ' 

$$ BRAGT AF JOHNNY B. 

$$ 

D (NON RETURN) 

10 

i 

vP w 

$$ 

580 PRINT:PRINT:PRINT" HIT ANY KEY" i 

11 

'$$ SYNTAXEN 1988 

$$ 

590 I FINKE Y$<>"" OR S TRIG (1) ORS TRIG (3 

12 

'$$ 

$$ 

) THENWOOELSE 590 

13 

'$$ KAN DU TILFØJE NOGET 

$$ 

1000 ' SET POINT 

14 

'$$ TIL PROGRAMMET ER DU 

$$ 

1010 SCREEN7:CLS 

15 

'$$ VELKOMMEN 

$$ 

1020 FORLO-CF JVCS 

16 

'$$ 

$$ 

1030 X=256: Y-106 

17 

'$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 

1040 LI=1 

18 

t 


1050 DMY-PAD (12) 


19 CLEAR 100, &HA7FF 1060 DX*PAD (13) :DY-PAD (14) 

20 DEFINTA-Z 1070 X^X+DX: Y^Y-WY 


30 FORA D-&HA800TOS HA887: RFADDTS: POK 
EAD, VAL ("SH" +FJT$) : NEXT AD 

40 ' CONST 

41 CX=0: 'CONs X 

42 CY-1 : 'CON Y 

45 CF s 0: 'CONS FIRST 

44 CS=1 :'CONS SECOND 

45 PL-1 : 'PALETTE LOMER 

46 PU-14s 'PALETTE UPPER 

47 PS*100: 'POINT SIZE 
50 ' ' VERS 


1080 IFX<OTHENX~OELSEIFX>511THENX-5 
11 

7 090 IF Y<OTHEN Y-OEL SEIF Y> 191 THEN Y* 1 
91 

1100 LINE(X-1, Y-1)-(X+1, Y+1),15,BF, 
XOR 

1110 LINE (X-1, Y-1)-(X+1, Y+1) ,15, BF, 
XOR 

1120 TR~0 

1130 IFSTRIG(1)ORS TRIG(3) THENG0SUB7 
000 


51 'PG-PAGE TR*TRIGGER X-CURSORX 

52 ' Y s CURS. Y DX-CURS.DX DY-CURS.DY 

53 'MO-SCREEN MODE RT-ROTATION MODE 

54 ‘AO-ANIMATION/ONE STEP 

80 DIMPO (1, PS, 1) : ' POINT (F/s, LOC, X/Y 
) 

70 DIMPT(I) : 'POINT TOP (F/S) 

80 DIMCC d ,3) S 'COLOR CODE (S/E, R/G 

/b) 

90 DIMCR(14) ,CG(14) ,CB(14) : 'PALETTE 
100 DEFFNID (XY) - ((PO(CS, L2,XY) -PO (C 
F, L2, XY)) *L 7 /PG) *PQ (CF, L2, XY) 

110 DEFFNIC (SC, EC) - (EC-SO *L 1 /PLJ+SC 
120 DEFUSR0*åHA800: 'SCREEN TRANSF. 
130 DEFUSR 7 -&HÅ802: 'PAGE CHANGE 
140 DEFUSR2-&HA804: 'COLOR SET(FILL) 


1140 IFTR-2ANDL 1 > 1 THENBEEP: X^PO (LO, 

1, CX): Y-PO (LO, 1 ,CY) :PO(LO,L 1 ,CX)=X: 
PO(LO, LI ,CY)-Y: PT (LO) =L 1 s LINE (PO (L O 
,L 1 -1 ,CX) ,P0 (LO,L 1 -1 ,CY) ) - (X, Y), 15: 
GOTO 1180 

1150 IFTR-3ANDL 1 > 1 THENBEEP:P0(L0,L1 
,CX) =X:P0(L0, L 1, CY) = Y:PT(LO) =L1 :LIN 
E (PO(LO, L 1-1 ,CX) ,P0 (LO, L1-1 ,CY) ) - (X 
, Y) , 15:G0T0 1180 

7 7 60 IFTR* 1 THENBEEP:P0(L0,L1, CX) *X: 
PO(LO,L 1 ,CY) = Y: IFL 7 = 7 THENPSET(X, Y), 

1 BEL S EL INE (PO(LO,L 1-1 ,CX) ,PO(LO,L 1 - 

1, CY)) - (X, Y), 15ELSE1050 

1170 L1*L1 + 1:IFL 1<^PSTHEN 1050ELSEPT 

(LO) -PS 

1180 CLS 
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OO MUS -**--*•* 


1190 ONL0*1 GOTO 1200,1250 
1200 PSET(PO(CF, 1 ,CX) ,P0(CF, 1,CY)), 
12 

1210 FORL 1-2T0PT(CF) 

1220 LINE- (PO (CF, LI ,CX) ,P0(CF,L1 ,CY 
) ), 12 

1230 NEXTL1 
1240 GOTO 1280 

1250 IFPT(CF) >PT(CS) THEN 1260EL SEIFP 
T(CS)>PT(CF)THEN 1270ELSE 1280 
1260 FORL 1 =PT(CS) + 1 TOPT (CF) :PO(CS,L 
1, CX) *PO (CS, PT (CS), CX) ;PO(CS, LI, C Y) 
*PO (CS, PT(CS) ,CY) : NEXTL 1: PT(CS) - PT( 
CF): GOT01280 

1270 FORL 1=PT (CF)*1 TOPT (CS) :PO(CF, L 
1 , CX) «PO (CF, PT(CF), CX): PO (CF, LI ,CY) 
PO (CF, PT(CF) ,CY):NEXTL 1 :PT(CF) - PT( 
CS) 

1280 NEXTL O 

2000 ' SET PARAMETER 
2010 SCREEN7:CL S s SE TPAGEO, 1:CLS 
2020 SCREEN2:COLORI 5:CL S 
2030 PRESET(0,0) 

2040 PRINT#1," INPUT SCREEN MODE " 
2050 PRINT#1," <1>:SINGLE SCREEN " 

2060 PRINT#1 ," <2>:MULTI SCREEN" 

2070 PR INT# 1," <3 >: RETURN TO EDIT " 

2080 K Y$ s ~INPUTS (1) 

2090 K Y-INSTR(" 123" ,KY$) 

2100 IFK Y-0THEN2080 
2110 IFKY=3THEN 10OO 
2120 MD-KY-1 
2130 PRINT#1," " 

2140 FORL0=CFTOCS 

2150 IFL 0=CF THENPRIN T#1," START " 
;ELSEPRINT#1 ," END 
2170 FORL 1 = 1 TOS 
2180 KY$~INPUT$(1) 

2190 IFK Y$ <" O" ORK Y $>" 7" THEN2180 

2200 CC(LO,L 1)-VAL (KYS) :PRINT# 1,KYS 
» 

2210 IFL 1<3THENPRINT#1 ; 

2220 NEXTL 1 
2230 PRINT# 1," " 

2240 NEXTLO 
2250 PR I NT# 1," " 

2260 PRINT# 1," PAGE (2-"; 

2270 IFMD-OTHENPRINT#1, "30)? ";ELSE 
PRINT# 1 ," 15)? " ; 

2280 PG $="" 

2290 K Y$~INPUT$ (1) 

2300 IFKY$-CHR$ (13) THENP6-ZAL (PG$) : 
GOTO 2320 

2310 IFK Y$ <" O" ORK Y $>" 9" THEN2290EL SE 
PG$~PG$+KY$:PRINT# 1,KY$j iGOTO 2290 


2320 PRINT# 1," " .* PRINT# 1," " 

2330 IFMD=OANDPG>30THENPG-30ELSEIFM 

D-1ANDPG> 15THENPG-15 

2340 IFPG<2 THENPG-2 

2350 PG=PG~1 

2360 IFMD-0THEN2490 

2370 PR I NT# 1," Input ROTATION TYPE 

(i 

2380 PRINT#1," <1 >:"i:A$*"BDBDBDB 

DBDBDBDEEEEEEE" :DRAU " XA$;XA$;XA$;X 
A $;" : PRINT# 1 ," " 

2390 PRINT# 1 ," < 7 >" ; .• DR Al#" BDBDBD 

BDBDBDBDBDEEEEEEEFFFFFFFEEEEEEEFFFF 
FFF" 

2400 KYS-INPUTS(1) 

2410 IFK Y$æ" 1" THENRT-QEL SE IFK Y$=" 2 " 
THE NR T-H ELSE2400 
2420 PRINT#1," " 

2430 PRINT# 1 ," INPUT DISPLAY TYPE" 
2440 PRINT# 1," <1 >:ANIMA TION" 

2450 PRINT# 1," <2>: ONE STEP" 

2460 KYS-INPUTS(1) 

2470 IFKYS-" 1" THENAO-OELSEIFKYS-" 2" 
THENAO-1ELSE2460 

9APH PQTNTJtl 11 11 

2490 PRINT# 1 '," READY ( Y/N) ?" ; 

2500 KYS*INPUTS (1): IFK YS =" Y" ORK Y$^" 
Y" THEN3000ELSE2000 
3000 ' COLOR CODE SET 
3010 IFMD-OTHEN SCREEN7:COLOR 15,0, 
O:CL SEL SE SCREEN2:COLOR 15,0,0:CL S 
3020 FORL1~PLTOPU 

3030 CR (LI) -FN IC (CC (CF, 1) ,CC (CS, 1) 

) 

3040 CG (LI) -FN IC (CC (CF ,2) ,CC (CS, 2) 

) 

3050 CB(L 1 )-FN IC (CC (CF,3) ,CC (CS,3) 

) 

3060 COL OR- (LI ,CR (LI),CG (LI) ,CB (LI) 

) 

3070 NEXTL 1 
4000 ' IN BETWEEN 
4010 IF MD-0THEN6000 
5000 ' MULT I SCREEN 

5010 FOR L 1 -OTOPGiCLS 
5020 COLOR 13/PG m L1+1 
5030 FORL 7 -1 TOPT(CF) 

5040 PX-FN ID(CX) /2:PY^FN ID(CY) 
5050 IFL 7 -1 THENPSE T (PX, P Y) EL S EL INE~ 
(PX,PY) 

5060 NEXT L2 

5070 PP%-L 1:DMY-USRO(PP%) 

5080 NEXTL 1 

5090 COL OR *(15,0,0,0) 

510O DMYHJSR2 (O) : BEEP 
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5110 IF NOT (S TRIG (0)) THEN5110 
5120 IFRT*1THEN5210 
5130 L1%-Q 

5140 FORL 2 m 1 T015 § NEXTL 2 

5150 CL*13/PG*L1%+1 

5160 COLOR ^ (15,CR(CL) ,CG(CL), CB (CL 

)) 

5170 DMY-USR1 (L 1%) 

5180 IFINKEY$ S CHR$(13) THEN2000 
5190 IFA 0-0THEN5200ELSEIFSTRIG(0) TH 
EN5200ELSES 180 

5200 IFL 1%<PGTHENL 1 %< 1 %+1:GOTO 514 
O ELSES 130 
5210 L1X~1 

5220 FORL 2^17015: NEXTL 2 
5230 CL~13/PG*L1%+1 
5240 COLOR = (15, CR (CL ), CG (CL ) , CB (CL 
)) 

5250 DMY s USR1 (L 1%) 

5260 IFINKEY$-CHR$(13)THEN2000 
5270 1FAOOTHENS280ELSEIFSTRIG(O) TH 
EN5280ELSE5260 

5280 IFL 1 %<PGTHENL 1 %=L 1 %+1: GOTO 522 
O 

5290 L1X-PG-1 
5300 FORL 2-1 T015: NEXTL 2 
5310 CL = 13/PG*L1%+1 
5320 COLOR = (15, CR(CL), CG (CL), CB (CL 
)) 

5330 DMY=USR1 (L 1%) 

5340 IFINKEY$=CHR$(13) THEN2000 
5350 IFA0=0THEN5360ELSEIFSTRIG(O) TH 
EN5360ELSE5340 

5360 IFL 1%>0THENL 1%-L 1%~1 '.GOTO 5300 
ELSES210 

6000 ' SINGLE SCREEN 
6010 CL S:BEEP 

6020 IF NOT (STRIG (O)) THEN6020 
6030 CL S 

6040 FORL 1=OTOPG 
6050 COLOR 13/PG*L1 + 1 
6060 FORL2=1 TOPT(CF) 

6070 PX-FN ID(CX) :PY=FN ID(CY) 

6080 IF L2~1 THENPSET (PX, PY) ELSEL IN 
E~(PX,PY) 

6090 NEXTL 2 
6100 NEXTL 1 

6110 IFSTRIG(O) THEN603O 

6120 IF 1NKEY$-CHR$(13) THEN2OOO ELS 

E 6110 

7000 ' CLICK SENSE SUB 
7010 L9-1 

7020 IF STRIG (1)ÅNDSTRIG (3) THENTR- 
3s RETURN 

7030 IFSTRIG(1) THENTR-1 


7040 IFSTRIG (3) THENTR-2 
7050 L9 s L9+1:1FL9> 10THENRETURN ELSE 
7020 

10000 ' MACHINE LENG DATA 

WOW DATA18.4, 18,54, J8,74,F3,3a,f8 

, F7, 32,87, A8,21,0,0 

10020 DAT Al 1,0, BO, 1,0,20, CD, 59,0, F3 

,3a,87, A8,FE, E,DO 

10030 DA TAD6, F, ED, 44,32,87, A8, CB, 3f 
,47 ,E,E,DD,21 ,20, 1 
1 0040 DA TA CD , 5f, 1, F3, 3e, O, D3,99,3A, 
87, A8, E6, 1, CB, 27, CB 
1 0050 DA TA27, CB, 27, CB, 27, CB, 27, F6, 4 
O, D3,99,21,0, BO, 7e, d3 

10060 DA TA98,23,7c, FE, DO, 20, F7, C9, F 
3, 3a , F8, F7,32,87, A8, FE 
10070 DA TAE, 28, 4 , D6, F, ED, 44,87,87, F 
6,3, 18,2,3E, 5,47 

10080 DA TAe,4,dd,21,2D, 1, CD,5F, 1, C9 
,F3,21,0,20,1,0 

10090 DAT Al 8, 3 e, FO, CD, 56,0, C9,0 



øaapoK kiøs a 

10 'SE ANDEMOR OG HENDES UNGER 
20 'SVØMME OVER SKÆRMEN 
30 ' 

40 JOHNNY B SYNTAXEN 1908 
50 ' KUN MSX 2 

60 ' 

70 SCREEN5,1 

80 DEFINT A-Z:X-Q:Y-0:ZK) 

90 BEFFNX®’ (Z+240) MOD 256 
100 ' 

110 'SPRITE DEFINATIQN 
120 ' 

130 RESTORE 580:SN-0:GOSUB 440 
140 RESTORE 700:SN-1:GOSUB 440 
150 RESTORE 700:SN-2:GOSUB 440 
160 RESTORE 700:SN-3:GOSUB 440 
170 RESTORE 700:SN»4:GOSUB 440 
180 RESTORE 700:SN-5:GOSUB 440 
190 ' 

200 'LYD 
210 ' 

220 SOUND6,25:S0UND7,37:S0UND8,16:S 
OUND12,63:SOUND13,14 
230 ' 


L 
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240 'TEGN DAM 
250 ' 

260 LINE (0,116)-(255,116),7 
270 PAXNT (0,118),7 
280 ' 

290 'BEVÆG SPRITE 
300 ' 

310 Y-100 

320 FOR X-0 TO 255 

330 Z“X :PUT SPRITE 0,(Z,Y),,0 


PUT SPRITE 1,(Z,Y) 
PUT SPRITE 2,(Z,Y) 
PUT SPRITE 3,(Z,Y) 
PUT SPRITE 4,(Z,Y) 
PUT SPRITE 5,(Z,Y) 


340 Z-FNX 
350 Z-FNX 
360 Z-FNX 
370 Z-FNX 
380 Z-FNXi 
390 NEXT X 
400 GOTO 320 
410 ' 

420 'SPRITE DEFINERING SUBRUTINE 
430 ' 

440 BPS® 1 "":SC$®"" 

450 FOR SI-O TO 7 

460 READ S0$,SC:SP«0 

470 FOR SJ-1 TO 8 

480 SP fa SP*2-(MID$ (SQ$, SJ, 1) - "O") 

490 NEXT SJ 

500 SP$-SP$+CHR$(SP):SC$-SC$+CHR$(S 
C) 

510 NEXT SI 

520 SPRITES(SN)-SP$ 

530 COLOR SPRITES(SN)^SC$ 

540 RETURN 
550 ' 

560 
570 


SPRITE DATA 


580 

DATA 

. . .0. 

15 

590 

DATA 

..0.0000, 

10 

600 

DATA 

... OO_ 

15 

610 

DATA 

rai/ fln A o li 

_ OO . . , 

15 

620 

DATA 

..00000., 

15 

630 

DATA 

00000000, 

15 

640 

DATA 

00000000, 

15 

650 

DATA 

.000000., 

15 

660 

DATA 



670 

1 



680 

'SPRITE DATA 


690 

1 



700 

DATA 


0 

710 

DATA 


0 

720 

DATA 

• . ■ • 0 . 0 ■ , 

10 

730 

DATA 

o 

o 

o 

o 

8 

740 

DATA 

_00.., 

10 

750 

DATA 

.00..00., 

10 

760 

DATA 

.000000., 

10 

770 

DATA 

..0000.., 

10 


ØPQQ, OS VQQ, ØSQ 

QP ØQ.QQ10 

10 " ************************* 

20 ' X X 

30 " X S p i 1 - 15* 

40 " * * 

50"*By:Claus 8 . * 

60 ' X X 

70 "*23/10 -1988 * 

80 " * * 

90 ' ************************* 

100 DIMX<9) . Y < 9 ) 

110 CLEAR 1000 
120 ON3TOP6OSUB950 

13 0 SCREENO: L0CATE7 ,6.0% PLAY"U15L43 
T100A#AB#A 

140 CP*="SUI-318":FR=FRE< 0) 

150 JFFR>20000THENMID*<CP$.6.1)="2 

160 STOPON 

170 A=PEEK<-456)-32 

180 1FATHENPRINTTAB< 9)"Tryk Caps-Lo 
ck"CHR$< 30)s GOTO 170 
190 RESTORE530:FORA-1T09iREADA*.s 
X < A)=UAL <"&H"+AiJO+38:Y<A)=UAL<+ 
B$) + 2 0:NEXT 

200 C0L0R7.1.1:SCREEN2:PRINT:PRINTT 
AB< 3)"Regler":PRINT:PRINTTAB < 3)CHR$ 
<91)"J/N"CHR*<93)s A*=INPUT*<1) 

210 IFA$="N"THEN23Q 
220 GOT0670 
230 B= 16 

24 0 COLOR13.1.1:SCREEN 1:FORX=1T08 

250 2=INT<RND<-TIME) * 8 ) + 1 

260 IFA< 2) =1THEN250 

270 8< 2) =X : A < 2) = 1 

280 GH<2)=B<2):NEXT 

290 IF6H<1 ) =1THENRUN240 

300 G0SUB370 

310 FORC—1T09:LOCATEX< C>,Y<C):A$=ST 
R$< B< C)) 

32 0 IFA$=CHR$ < 32 ) + CHR$< 48)THENA*=CH 
R$<32)+CHR$<201) 

330 PRIMTAL;NEXT 
340 IFP=13THEN610 

350 L0CATE90.16:PRINTCP*:L0CATE9i.1 
6:PRINTCP$:A—UAL<INPUT& < 1)) 

360 G0T043G 

370 LINE< X <1) f Y<1>-8)-<X<9)+B.Y<9) + 
B).15.BF 

380 L0CATE24.16Q:M=M+1:LINE< 0.150)- 
<255.170).1.BF 
390 COLOR12 

400 PRINT"Tra":LOCATE40. 160:PRINT"e 
k nr:"MlTAB<4)«:P--3 
410 COLOR 13 : FORU- 1T08 s l FB< U)= S UTHENP 
—P+ 2 
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■»*** SPIL 


20 - 

AF CLAUS B 


420 NEXT:RETURN 

430 F0RL-1T09 

440 IFB<L)=ATHENM=L 

450 NEXT 

460 FORL—1T09 

470 IFB<L)=OTH£NW=L 

480 NEXT 

490 D—W/M:D=INT<DM1G0)/100 
500 IFD-I.50RD—1.120RD=i.20RD=.66GR 
D=.880RD=20RD=.50RD=.830RD=.4GRD=2. 
50RD=.620RD=1.250RD=.80RD-1.60RD=.2 
50RD=40RD“.57GRD=1.750RD=.870RD=1.i 
4THEN520 

510 M=M-1 sG0SUB9G 0 s GQT 03 G G 
52 0 IFW=4ANDM=8ANDD=.5THEN510 
530 IFW=8ANDM=4ANDD=2THENS1Q 
54 0 IFW=2ANDM=4ANDD=.5THEN510 
550 IF W= 4ANDM—2ANDD—2THEN510 
560 SWAPB<W).B<M)sPLAY" 132vl5ab#baa 
# 

570 GOT0300 

580 DATA 32.19.42.19.52.19 
590 DATA 32.35.42135 . 52.35 
600 DATA 32.51.42.51.52.51 
610 LINE< 0, 160)-<255.191).1,BF:COLO 

R7 

620 L0CATE9.160:PRINT" SPILLE 

T ER FORBI"iL0CATE9 f 168 s PRINT" SAMM 
E UDGANGS-STILLING TAST S":L0CATE9. 
176 SPRINT" NYT SPIL TAST N 
630 PLAY " 03T255S9M9 02 0A#B8A#B#G#G« 
640 A*=INPUT*< 1 ) 

650 I FA*= 11 S "THENCLS ; FQRL= 1T08 s B < L > = 

GH<L):NEXT:M=0:GGT0300 

660 IFA*="N"THENRUN 

670 C0L0R2. 1 f 1 sSCREENO.0 

680 DATA ..208.40.120.160.216. 

690 DATA .8.112.152.168,200.112.128 
700 DATA 32..112.8.120.136.120. 

7 3 0 RESTORE680:FORI=91T093 s A—I-32 
720 FORL=0TO7s READG:MP0KE2048+A*8+L 
f G sNEXT sNEXT 

730 PRINT" Spillet g"CHR*<93)"r 

ud p" CHR*< 93) " at f " CHR*< 93) " de t 
al som st"CHR*<93) " r- i kassen 

til at st "CHR*<93)" i ords 

n. 

740 PRINTsPRINT" Mi tager et eks 
empøl s 

750 PRINTsPRINT 

760 PRINTTAB<12)CHR*<180)CHR*<174)0 
HR*< I68)CHR*< 1?4)CHR*< 174)CHR*< 168) 
CHR*<174)CHR*< 174)CHR*< 168) 

770 PRINTTAB<12)CHR*<197)CHR*<4?)CH 
R*< 200)CHR*< 32)CHR*< 50)CHR*< 200)CHR 


$ < 32)CHR* <201)CHR*(200) 

780 PRINTTAB<12>CHR*<169)CHR*<171)0 
HR*<170)CHR*<171)CHR*<171)CHR*<170) 
CHR*< 171)CHR*< 171)CHR* < 170) 

790 PRINTTAB<12)CHR*<197)CHR*<32)OH 
R*< 200)CHR*< 32)CHR*<32)CHR*<200)CHR 
*<32)CHR*<32)CHR*<200> 

800 PRINTTAB<12)CHR*<197)CHR*<52)CH 
R*<200)CHR*<32)CHR*<53)CHR*<200)CHR 
*< 32)CHR*< 51)CHR*< 200) 

810 PRINTTAB<12)CHR*<169)CHR*<171)C 
HR*< 170)CHR* < 171)CHR*< 171)CHR*<170) 
CHR* <171)CHR*<171)CHR*<170) 

820 PRINTTAB<12)CHR*<197)CHR*<32)CH 
R* < 200)CHR* < 32)CHR*< 32)CHR*< 200)CHR 
* < 32)CHR* < 32)CHR*< 20 0) 

830 PRINTTAB<12)CHR*<197)CHR*<55)CH 
R*< 200)CHR*< 32)CHR*< 56)CHR*< 200)CHR 
*< 32)CHR* < 54)CHR*< 200) 

840 PRINTTAB< 12)CHR*< 169)CHR*< 17DC 
HR* < 170)CHR*<17i)CHR*<171)CHR*<170) 
CHR* <171)CHR*<171)CHR*< 170) 

850 PRINT 

860 PRINT" Hvis du i denne stilli 
ng trykker 2 bytter firkanten og 
2-tal let plads - du kunne oos"C 

HR*< 93) " v " CHR* < 91) 11 1 ge 3-tallet. 
870 PRINT" Du kan ikke tage nr 5 
. du kan kun g"CHR*<93)" od. ned.h 
"CHR*<92)" i er &: venster. 

880 A*=INPUT*<1) 

390 IFA*=CHR*< &HD)THENRUNELSE880 
900 F0RI=2T06STEP2 
910 COLOR..8 

920 PLAY"M15T101L2 0N5 OL8N10 
930: FORI = OTO 1 00 s NEXT s CGLOR. . 1 
940 RETURN 

950 DEFUSR=89sA—USR< 0) 

960 COLOR15.4.4 sSCREENO.1 
970 END...... 










#"*** KØB/SALO ftc NYE MEDLEMHER ■fHMH* 


BYTTES 

MOLECULE MAN bvttes med eventuelt 
SPIL: 

KlHG. BMX eller PAC MAN. 

MOLECULE MAN har Kostet 100.00 kr. 
Min computer er en MSX. 

Min adr. er : 

Torben Ravnsbæk 
Fousingvej 2 
Gjørd i ng 
7570 Vemb 
tit. 07 48 11 05 


f mmmz 

EFTERNAVN: _ „__._ __ 

ADRESSES • 

TLFNR.s _____ 

POSTUR. »DY; 

ALDER! 

maskine: ■ 

DXV. »STYRS 

. .. .^^»^as^ssaa 

mm&mt ___ 


liJTEUSSSe 
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*-*-•**• KØB/SALG fte NYE MEDLEMMER -M-M-M-M- 


ANNONCE 

Lad os udveksle en liste over MSX 
programmer. jeg har ca. 200 stk.. 
Måske kan vi udveksle, låne eller 
bytte. 

Send en liste over dine programmer 
og du vil modtage en at mig. 

Ven lig Hil sen 
Mogens Petersen 
Hovvej en 45 
Marcusminde 
8471 Sabro 


KUP 


KLIP 


KUP 


KLIP KUP KUP KUP KUP KUP 


KLIP 


KUP KUP 


Mi S X BRUQER-KLUBBEN . 
KASSERER PREBEN LUND 
HYLDESRJÆLDET 
TØMMERSTRÆDET 19 
2620 ALBERTSLUND 











Liste af programt i 11 er 
i SVIBIB : 


>, X 


o ej o ej 

SVI B1B er KUN til SVI 318-328 

SVIBIBS’s POSTGIRGNR. er: 

4077385 


Nyttige programmer : 

Database , Editor , Hushold ,Matte, 
Mc scroll , Rarndis , Rentereg , 
Rulleteks , Screen Rig , Sdurnp/rnc, 
Sorter , Sprite ed , Sprog , 

Tegner , Talkback , Taperut , Tips 
Kalender , Supertegn , Periode 


Bestilling a-f programmer gøres på 
postgiro hvorpå der skrives hvilke 
p r o gr arnm e r d u øn s ke r,sam t o m du vil 
have disk eller bånd. 

Husk også at skrive din egen adr. 
tydeligt helst BLQKBOfiSIåyEB a 


PRISER 

Bånd - 25 kr 

5.25" Disk - 25kr 

Pris pr, program - 10kr 

Pris pr. programpakke - 15kr 

Ud 1 i s t n i ng a-f program - 5kr 


Programpakkerne er lavet på den 
måde at man loader alle 
programmerne ind på en gang , og 
kan så vælge ved hjælp af en meny 
hvilket program man ønsker at køre 
derefter kan man stoppe og vende 
tilbage til menyen ovs.ovs, 

HUSK når I bestiller programpakker 
at skrive hvilken katarog i I 

ønsker det pågældende nr. fra. 

Programmerne bestilles hos; 

Per Under lien 
Rytterhusene 44 
2620 Albertslund 
GIRONR. 4077385 

Programmer der ønskes optaget i 
SVIBIB sker på samme adr. 

Det er jo sådan at vi NU GIVER 
2 bånd eller 
5 5.25" disk 

For- de programmer der optages- i 
SVI BIB. 


Spi I 

ø 

0 



Aladdin 

y Bov 1a , 

Bjerg, Darts, 

Death 

i 

Diktator, 

Frans, Hel 1, 

Kaiaha^ 

Skyd nu, 

Oil 

Spil 

pakker : 


Nr. 1 


Male , Pyramide , Labyrant 

Nr.' 2 


Pusle , 

Attack , Roulette 

Nr. 3 


Flight , 

Sur , War 

Nr. 4 


Mons , Hopper , Star 

Nr. 5 

* 

Moon , M 

yre , Slange 

Nr . 6 


Robot , 

Pengo , Snowbsl1 

Nr. 7 


Danmark 

, Frogger 

Nr. 8 

* 

■ 

S k y 11 e p r 

o , Lemona 

Nusik 

pakker : 


Nr. 1 


R o c k m u s i k 9 n u m r e 

Nr. 2 


Rock musik 9 numre 

Nr. 3 


Musik 9 

numre 

Nr. 4 


L y d K i rn 

, Sound Kim , Orgel 

Andet 

pakker : 


Nr. i 

* 

Rio , Lys , Ghost , Børge 



• r*< 

- 4 — 1 

i~ 

>— 

CO 

Graf ik 


Kun til disk : 



Hi Isen Per 


Budgetpro. , Dbase i no. 1 
Tegnepro. , Telefonpro. 


9 


Grafen 
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•*■*§■■*■*• BASIC MED RETER ***-tf- 



ØflØQ® KSSØ 

Du havde forhåbentlig ikke 
alt for store vanskeligheder 
med at finde fejlene i 
programmet i sidste nummer. 

Jeg må indrømme, at der var 
flere end 3 fejl for at 
kravet: At udskrive 

2-tabellen blev opfyldt. 

Den første fejl man ville 
støde på, hvis man prøver at 
køre programmet, som det var 
gengivet i bladet var en syn- 
taxfejl i linie 40. Det var 
ordet NEXT, der var stavet 
forkert. Det var måske en 
banal fejl, men det viser, 
hvor vigtigt det er, skrive 
så datamaskinen forstår det. 

Tallene der bliver udskrevet 
blot med denne ene rettelse 
har ikke meget med 

2—tabellen, at gøre. Det 
skyldes, at B i linie 20 ikke 
bliver opsummeret med 2 af 
gangen lagt til værdien af A. 
Derfor skal variablen A i 
linie 20 rettes til variablen 
B. 

Erstat derefter kommaet i 
linie 30 med et semicolon. 
Det gør den forskel, at 
tallene nu bliver udskrevet 
efter hinanden i stedet for i 
kolonner. 

Nu bliver 2-tabellen 

udskrevet, men den lille 
tabel går, som bekendt kun 
til 20 og vi retter derfor 
løkkens slut-værdi til 10 i 
linie 10. 

Herefter ser programmet 
således ud: 

10 FOR A = 1 TO 10 
20 B = B + 2 
30 PRINT B; 

40 NEXT A 


Nu vil nogen sige, at det kan 
gøres nemmere. Ja det kan det 
også. 

Ved at forandre linie 10 
sål edes: 

10 FOR A = 0 TO 9 STEP 2 

-tælles A kun op for 
hverandet ciffer 0-2-4-6 osv. 
Dermed bruger vi FOR - NEXT 
-variablen A som "tæller” og 
kan derfor undvære linie 20. 
Selvfølgelig skal B i linie 
30 så ændres til A. 


Nok om det, nu skal vi se 
lidt på næste opgave. Den 
handler om FOR -NEXT lykker 
inden i hinanden. Man kan 
nemlig godt have brug for at, 
en lykke udfører en opgave 
mange gange. Dette er 

tilfældet med næste eksempel: 
Programmet skal udskrive den 
lille tabel. 

Da tallene får flere cifre 
end i 2-tabellen, er kravet 
til een tabel pr. linie ikke 
med - hvis du kører med 40 
tegn pr.linie. 

Her er programmet med 3 fejl: 

10 FOR C = 1 TO 10 
20 PRINT 

30 FOR A =0 TO (C * 101STEP A 
40 PRINT A; 

50 NEXT C 
60 NEXT A 

God fornøjelse! 

pe ter 
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■*■■*■*■*■ BREV FRA COMPETTER -ft-**--*- 



BBB\9 \?m 
0®CI[?B‘u"u‘BB 

SVERIGE OG COM PETTER 

Petter har selv forbedret sin musik 
samt lavet noget mer© og Jeg iler 
derfor fluks med at bringe det til 
all© I andre, det er Jo rart når et 
medlem gider sende noget til bladet 
så derfor Tak til Com Petter som er 
herlig aktiv og til alle I andre 
se dog at få den FINGER UD ! ! !! ! 

i 

Nu til Petters Musik: 


10 CLS 

20 PRINT*’JAG VILL HA EN EGEN MANE" 
30 

UO PRlNT"Musik av Ted Gårdestad" 

50 PRINT"Text av Kenneth Gårdestad" 
60 PRINT"Music Monsters Inc, 88" 

70 PRINT"MSX Version " 

80 PRINT 

90 PLAY"MU50S130U" 

100 PLAY"R8G8G8G8G5G8AB805M1C8C8MU5 
0D5R8OUB8B8A8G5A8G8D5C3" 

110 PLAY"R8E8E8E8E5E8FE8M1D8D8MU50E 
5R8D8D8D8D8M1C8O3B8OUMU50M1C8C1MU50 

M 

120 PLAY"R8G8G8G8G5G8AB8M105C8C8MU5 
0D5R8OUB8B8A8G5A8G8D5C3” 

130 PLAY"R8E8E8E8E5E8FE8M1D8D8MU50E 
5R8D8D8M1C8C8MU50O3BOUM1C8C1MU50" 
1U0 PLAY"RUC8c8C5A8BO5C8M1D8D8MU50O 
UB5RU05C8c8CD8C0UG8E2R8e8" 

150 PLAY**F5F8FM1ED8MU50DDCD8M1FE16D 
16E8E3E2MU50RU" 

160 PLAY"RU05C8C8C50UA8B05C8M1D8D8M 
U50O4B5R8O5C8C8D8C8OUGM1E8E2MU50R8E 
8" 

170 PLAY"F5F3f8EM1D8d8MU50D8C8O3BOU 
M1C8C1C1MU50" 


10 CLS:KEYOFF :’Muslc Monsters 
20 PRINT"TEDDYBJØRNEN FREDRIKSSON" 

U0 PRINT"by Lars Berghagen ** 

50 PRINT 

60 PRINT"Computensigation by MMI(c) 
88 " 

70 PLAY"mU50sl30U" 


80 PLAY"R8F8F8A8E3R8B16B16B805D8C80 
UB8AR8B8B805D8" 

90 PLAY"C80UB8a805C80UB3R1R8F8F8a8E 
3R8B16B16B805D8" 

100 PLAY"C80UB8AR8B16B16B805D8c80UB 
8A8O508OUA8B3R1R8O5D16D16D8D8" 

110 PLAY"C80UB8BA9B16A8G8F3R8G16G16 
A8G8F8A805D80UB16F16" 

120 PLAY"E9E16B8G#8A305R8D16D16D8D8 
C80UB8B9A8A9B16A8G8" 

130 PLAY"F3R8G16G16AG8F8A805D90UF16 
E8F16G16F8E8M1D3D3MU50" 


10 CLS:KEYOFF:WIDTHU0 

20 PRINT"SHE'LL COMING ROUND THE MO 

UNTAIN" 

30 PRINT"************************** 

Uo PRINT"BY MUSIC MONSTERS INC." 

50 PRINT*’ ( C ) 1988’* 

60 PLAY’*mU50sl3" 

70 PLAY"D8E8G8G8G8G8E8D803B80UD8G3R 
UG 8 A 8 " 

80 PLAY*'B8B8B8B805D80UB8A8G8A3RU05D 
8C8" 

90 PLAY**OUB 8 B 8 B 8 B 8 A 8 G 8 g 8 g 8 E 8 E 8 E 8 E 8 A 
8 G 8 F 8 E 8 " 

100 PLAY"D8d8d8D8B8a8f8D8G203B80UD8 
m 

110 PLAY’’GGE8d803B80Ud8G2G8A8BB" 

120 PLAY"05D80UB8g8b8A205D8C80UBBA8 
B 8 B 8 B 8 " 

130 PLAY*'EEA8g8f8E8DDB8a8F8D8G2" 


10 CLS 

20 KEYOFF:WIDTHU0 

30 PRINT"BLOWIN* IN THE WIND by Bob 
Dylan" 

U0 PRINT**Computlsation by Music Mon 
sters Inc" 

50 PRINT: PRINT*’How many times must 
a man walk down, be-fore you call h 
im a man?" 

60 PRINT’’Yes' n ’ how many seas must 
a white dov© sail.before she sleep 
s in the sand?" 

70 PRINT’*Yes ’ n ’ how many times must 
the cannonba-lls fly befor© they'r 
e for ever banned?" 

80 PRINT"The answer,my friend, is b 
lowin * in the wind,the answer is bl 
owin* in the wind." 

90 PLAY"T130MU50S1303" 










■*■*■*■■*■ BREV FRA C OMRETTER *•*■*-* 


100 PLAY"G2GQA2AAG2mlEDm450C3EG3GA2 
GF" 

110 PLAY H mlG103m450EFG3GGA3AAG2mlED 
m450C2EG2E" 

120 PLAY ,, F3FEmlDlD3m450EFG3GGA3AAG8 
G5mlEDm450" 

130 PLAY’'C2EG3GGA3GFmlGlG2m450EF3FE 
D2D" 

140 PLAY**E8E5EDC2EF3FED8D5C02B03mlC 
1C1" 


10 CLS:KEYOFF;W1DTH37 
20 PRINT"EL CONDOR PASA" 

40 PRlNT"Dan±el A.Robles,Jorge Mile 
hberg S< Paul Simon.Comp. Version 
by : Muslc Monsters Inc." 

50 PRINT" Hi i*##*## #######*# #***## 

s;« >;« •»« 

60 REM l'd rather be a MSX than Com 
modor© 

70 PRINT"I'd rather be a sparrow th 
an a snail.Yes I would.If I eould,I 
surely would.I'd rather b© a hamme 
r than a nail. Yes I would.If I cou 
Id,I surely would"; 

80 PRINT:PRINT"Away,I’d rather sail 
away lik© a swanthat’s here and go 
ne.A man gets tled up to the ground 
,he gives the world Its saddest so 
und.lts saddest sound." 

90 PRINT:PRINT"I’d rather be a fore 
st than a Street.Yes I would.If I c 
ould,I surely wouldl'd rather feel 
the ©arth beneath my feet.Yes I wou 
Id.Xf I only could,I" 

100 PRINT"surely would." 

110 PLAY"tl50sl3m450o5" 

120 FOR 1=1 TO 2 

130 PLAY"o4a05DCDEFEFGAlA306DC05AlA 
R4Q6DC05A1AAGFD1D3F3D1DR4R404A05DCD 
EFEFGA1A306DC05A1AR806D8C8DC05A1AAG 
FD1D3F3D3DR3A" 

140 PLAY"06D2CD5C8D5C8D1D3FDC1CCDC0 
5A1A2A" 

150 PLAY"06D2CD5C8D5C8D1DDFDC1CCDC0 
5A1AAGFD1D3R4" 

160 NEXT 

170 FOR Q-l TO 2000:NEXT 



10 SCREEN0:WIDTH37 
20 PRINT"La Bamba " 

30 PRINT"***#**#**" 

40 PRINT"Musie and text by Rlchi© V 
alens 

50 PRINT"converted to Muslc Macro L 
anguage 

60 PRINT"on MSX and SVI by ComPatt© 
r Computing" 

70 PRINT:PRINT"Pa-ra bai-lar La Barn 
-ba,pa-ra bai-larLa Bam-ba se n© - 
ce-si-ta una po-ea" 

80 PRINT"de gra-cia.un-a po-ca de g 
ra-cia parami para ti ya~ a -ri-ba, 
y'a-riba." 

90 PRINT"Y*a-ri-ba,y'a-rl-ba,por ti 
se-re, por ti se-re.por ti s@ - 
re.Yo no soy mar-i-ne-ro,yo no soy 
mar-i-ne-ro,soycap-i-tan,soy cap-i- 
tan,soy cap-i-tanBam-ba,Bam,ba. VV: 
Bam-ba, Bamba:VV" 

100 PLAY"T150M450O4S13" 

110 PLAY"F8F8F8FFECR3R8F8F8F8FFE8CC 
8CCD803B04d8f8ED8e8C5" 

120 PLAY"R3R4f8f8F8FF8E8CC8CCD803B0 
4D8F8ED8ECR3R4R8F8F8FF8E8CC8CCDO3B0 
4DFEEC" 

130 PLAY"03AG8o4F8F8F8FFECR3R8F8F8F 
8FFE8CC8CCD03B04DFEEC03AGR4R304C303 
A3B8G5R3" 

140 PLAY"vllo4E3CD803B5R3" 

150 PLAY"v5o4E3CD803B5R3" 

160 PLAY"vlo4E3CD803B5R3" 

170 PLAY"v0o4E3CD8O3B5R3'’ 

180 PRINT 

19,0 LINE IN PUT "IGEN ( J/N ) " ; Q$ 

200 IF Q$="J" THEN 230 
210 IF Q$-"N" THEN 240 
220 GOTO 190 
230 CLS:GOTOIO 
240 CLS:PRINT"SLUT 



1 
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*•*"*'*- BREV FRA COMFETTER *--*-** 


10 KEYOFF:CLS:WIDTH40 
20 PRINT"STREETS OF LONDON by Ralph 
McTell" 

30 PRINT"MSX/SVI MML by ComPetter" 
40 PRINT"Hav© you søen the old man 
in the elosed down market,kicking u 
p the papers with his wor>n out sho 
es? In his syes you ae© no pride,ha 
nd held loosely by his side" 

50 PRINT",yesterdays paper telling 
yesterdays ne-ws.So how can you tel 
1 m© you'r@ lonely,and say for you 
that the sun don't shine? Let 

me take you to the stråets of Londo 
n.I'll show you something to mak©"; 
60 PRINT" you change your mind. " 
70 PLÅY"T12QM450S13O4" 

80 FOR 1=1 TO 4 

90 ON I GOSUB 210,220,240,260 
100 PLAY"BBBB05DD304B8A8G3Q3BB2" 

110 PLAY"EEEQGG308Q8A3A3B1" 

120 PLAY"BBB05DDDD304GFGBB805C04mlB 
8b3" 

130 PLAY"m450R4EE8G5GG3G8G8D3E8F8ml 
g8glg3r4m450g" 

140 PLAY"05C3CC04BB205DmlD3C3m45004 
BlR4AAA8mlA8am450" 

150 PLAY"E8E8G8F5mlDlDlm450BB8mlB8b 
8m450O5D5DD8O4mlB8bA" 

160 PLAY"GF8mlG8g5m450A8B5O5CO4BFR4 
EEGGG3G" 

170 PLAY"DD8mlE8em450FG3B8O5CmlD8D3 
m450O4BAG3F8G5Al" 

180 NEXT 1 
190 PLAY"G3" 

200 END 
210 RETURN 

220 PRINT:PRINT:PRINT"Have you sesn 
th© old giri who walks thestreets 
of London,dirt in her hair and her 
elothes in rags? She's no time for 
talking.sh© Just keeps right on w 
alking earrying home in two oarrier 
bags. " 

230 RETURN 

240 PRINT:PRINT:PRINT"In the all ni 
ght cafe at quarter past eleven,s 
arne old man slttlng ther© on hisown 
,looklng at th© world over th© rim 
ofhis teacup.each tea lasts an hour 
,and hewsndars horn© alone." 

250 RETURN 

260 PRINT:PRINT:PRlNT"Have you s@sn 
th© old man outsid© th© seaman’s 
mission,memory fading with the med 


al ribbons h© wears? In our winter 
city the rain crias a little pity 
,for one more forgotten hero and 
a world doe-sn't care." 

270 RETURN 



da Jeg lige har erhvervet mig et 
mundstykke til en Trompet fra 
Danmarks Akustiske Musik 
v/ et af vore medlemmer 
Hr Peter Dam tlf 02 290705 
vil Jeg bringe Jer en rigtig 
truttende musikalsk hilsen 
OBS: Mine naboer håber at Jeg 
aldrig får råd til resten af 
Trompeten 

Peter kan levere alt i Akustisk© 
instrumenter samt reparere alt i 
blaser© 

Hej fra Johnny B Silkeborg 


mMMMMsm 









- 28 - 


**** MSX BIB **■*-■#■ 


am øoa 

Et lille program er det blevet 
til siden sidst. Det er et spil 
kaldet "Thorkild", hvor man er en 
lille loppe der skal forcere et 
antal baner. Spillet er lavet i 
screen 2 (!) og er meget underhold¬ 
ene. Desværre ved jeg ikke hvem der 
er ophavsmand til programmet, men 
jeg tillader mig at sætte det i 
BIB, da det faktisk er ret godt 
lavet. 

Derudover har jeg stadig en 
kasse med original versioner af 
spillet "Knight Tyrne" på bånd lig¬ 
gende som igennem BIB sælges for 
kr. 35,- inkl. forsendelse, hvis 
det købes alene og kr. 25,- hvis 
det købes sammen med andre program¬ 
mer i BIB. 

Ønsker du at komme i besiddelse 
af nogle af de ovenfor eller dem i 
nedenstående liste nævnte program¬ 
mer fra MSX-BIB er fremgangsmåden 
som altid: 

Du sætter dig ned og finder ud 
af hvilke programmer du vil købe. 
Derefter slipper du joystikket for 
en stund, går hen på posthuset, 
fatter et giroindbetalingskort, og 
skriver programnavnene på bagsiden. 

Priser: 


15 min. bånd 

- 25 

dkr. 

stk. 

5.25" disk 

- 25 

dkr. 

stk. 

3.5” disk 

- 35 

dkr. 

stk. 

programmer 

- 10 

dkr. 

stk. 


Forsendelses omkostninger er in¬ 
kluderet i disse priser. 

Et bånd kan rumme 8 programmer. 
En disk kan rumme hele biblioteket. 

Eks: 8 programmer på 3.5" disk 

koster 8 # 10 + 35 = 115 dkr. 


Programmerne bestilles hos: 

Kim Andersen 
Fundervej 32 
2610 Rødovre 
gironr. 7 50 87 00 


Jeres egne programmer sendes til 
samme adresse. (der venter stadig 
en belønning i form af bånd eller 
disketter efter eget ønske). 

Kim 


Øvrigt indhold i MSX-BIB: 

- "MSX-Basic-Kun", basic-compiler, 
der oversætter et basicprogram til 
maskinkode resulterende i en meget 
stor hastighedsforøgelse. 

- "Milas”, teksteventyr i Milas's 
slot. Rimelig underholdende. 

- "Nim”, det gamle kinesiske pinde¬ 
spil - hvem tager den sidste pind? 

- "Tank", 2 -mandsspil hvor man skal 
kanonføde hinanden. 

- "Wall", 2 -mandsspil lignende 
bordtenni s. 

- "Seafight”, Skyd jetjagere, der 
angriber ens skib. 

- "Fødag", sig tillykke til din mor 
med et lille grafik/lyd show. 

- "Kalender”, Udregner kalender for 
ønsket år eller ugedag for dato. 

- "Colortrim”, definer nye farver 
mellem 512 mulige. Kun til SVI-738. 

- "Bronski", spiller Bronski Beat's 
'Smalltown boy'. 

- "Musik”, en lang række kendte 
melodier, bl.a. 'Cavatina'. 

- "R2D2", tegner det lille kære 
metal væsen. 

- "Lamborghini", har du ikke råd 
til at købe en, så se en. Flot! 

- "Lineshow”, meget flot demonstra¬ 
tionsprogram med bevægende linier. 

- "Kegle", vælt den enlige bevægen¬ 
de kegle med din bowlingkugle. 

- "Figflyt", kan flytte og dreje 
figurer du tegner ved at angive 
hjørnekoordinater. Regner nye ud. 

- "Sprite”, tegn din sprite og du 
får hvad der skal stå i data¬ 
linierne. Meget enkelt. 

- "Regression", smart program der 
ud fra indtastede data (koordina¬ 
ter) tegner en tilpasset kurve. 

- "Tegne”, lille tegneprogram med 
de gængse kommandoer. Flot grafik. 






•»Hf-** MSK BIB * KURSIV 


SKRIFT TIL DOS -M-M-M-tt- 


- "Snak© Valley”, æd modstanderens 
hal® inden han æder din. For 1 
eller 2 spillere. Rigtig sjovt! 

- "Biorytmer”, afgør hvordan din 
fysiske, psykiske & intellektuelle 
tiIstand er d.d. 

- "Chopper”, hel i koptorspi 1 med 12 
baner, incl. designerprogram til at 
lave mange flere. 

- "Ormrun", Char1otten1 und Travbane 
med orme, flot grafik & lyd. 

- "Demo”, oplev hvilke grafiske 

muligheder din MSX indeholder. 

- "Åraorti”, regner rente, afdrag og 
restgæld på din afbetaling ud. 

- "Tips”, indtast dine tips (også 
sys.) og prog. viser antal rigtige. 

- ”The Mag©”, lav en labyrint og få 
en anden til at slippe igennem. 

- "Life”, tegn et mønster af cel¬ 
ler, og du ser dem udvikle sig, 

- "Sound Maker”, lav den rigtige 
lyd til dit sdpil på denne flotte 
mikserpu1t. 

- ”Halv Tolv”, lige som i Monte 
Carlo, på med pokerfjæset. 

- "Danmark”, lær de danske byers 
beliggenhed, flot grafik. 

- bliv olie-sheik på no 
time, sjovt to-mands-spi1. 

- "Puzzle”, sjovt puslespil på 16 
brikker med bevæglige billeder. 

- "Skyd Nu”, skeetskydning som du 
kender det fra 01, hurtig grafik. 

- ”P©ngo”, det iskolde gys-, klas¬ 
sikeren fra spillehallerne. 

- "Søjle”, behandler tal og stiller 
dem op som kurver el. søjler. 

- "Elisa”, Psykologen hjælper dig 
med kærestesorgerne, på engelsk. 

- "Graf", tegner en graf for den 
indtastede funktion, brugervenligt. 

- "Kartotek", hold styr på dine 
cassette bånd og programmer. 

- "Moon Mission”, superlækkert gra¬ 
fik lander program, 5 baner. 

- "Frogrun”, få frøen sikkert over 
vejen og floden. 

- "Dump”, screendump prog. til din 
Epsonkompati ble printer. 4 forstør¬ 
relser. 4 gråtoner. 

- "Dbase”, hurtig dbase hvor du kan 
sætte alt i system, indbygget ud¬ 
printningsfacilitet. 


- "Screen Store”, kan gemme to 
skærmbilleder og lynhurtig få dem 
frem igen. Kun til 64 k maskiner. 

- "Ram Disc”, arbejd med to pro¬ 
grammer på samme tid. Kun til 64 k 
mask i ner. 


KHBøQO ØKBQIFV 
TPfltt, BØØo 

1 'Hermed en kursiv skrift rutin© 

2 'til Dos 

3 1 prg opretter en kursiv.com fil 

4 'Prg er lavet af Stanislav Deja 

5 'Tyskland. 

6 'Public Domain sålænge copyright 

7 'findes i programmet 

8 'Hej Johnny B 

9 ' 

10 DATA 2A,24,F9,11,FF,0,19,11,FO,7 
,6,4,C5,IB,23,DD 

20 DATA 21,4A,0,FD,2A,CO,FC,DF,CB,3 

F,DD,21,4D,0,FD,2A 

30 DATA CO,FC,DF,Cl,10,£6,23,23,23, 

OQ 1 ’B 4 4'Q -1 C *7ft *DQ 

eJ > J. >P ; X Jo t X .Q t X / / n f .D u 

40 DATA 20,D8,E,9,11,3B,1,CD,5,0,C9 
,4B,55,52,53,49 

50 DATA 56,20,5A,2D,53,61,74,7A,20, 

69,6D,20,40,53,58,44 

60 DATA 4F,53,2E,20,28,63,29,20,53, 

74,2E,44,65,6A,61,2E 

70 DATA A,D,24,D,FF,FF,FF,FF,FF,FF, 

FF,FF,FF,FF,FF,FF 

80 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF, 
FF,FF,FF,FF,FF,FF,FF 
90 ' 

100 'ÅBNER EN DATA FIL TIL DOS " *. 
COM 

110 OPEN"KURSIV.COM"FQROUTPUTAS#! 
120 FOR1-OTO &H7F 
130 READX$ 

140 X^VALC "&H"'}-X$) 

150 FRINT#1,CHR$(X); 

160 NEXTI 

170 PRINT"færdig:Kursiv.com oprett© 
t 

180 GLOSE 
190 1 

200 'OBS copyright findes 
210 'i maskinkoden 
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30 


RENTER FRA HENRIK -X-*4HF 


BBHffBB PBa 
HBCBBQK 


Renter tænker du, det er da noget 
man får nede i banken. Og du mener 
jo sikkert selv at du er istand til 
at regne renten ud, men det er du 
højst sandsynligt ikke !!! 

Er jeg ikke ??? Siger du. Nix ! 

Du kan jo nok finde ud af hvis der 
nu stod 1000,00 kr. på din bankbog 
den 1.1.87, og de blev stående 
indtil 31.12.87 og intet var sket 
imellem tiden. 

Resultat: 


8 * 1000 * 365 
365 * 100 


80,00 kr. 


idet formlen for rente regning 
hedder : 

Procent * kapital * antal dage 


årets ant. dage * 100 

det var jo nemt nok, men hvad nu 
hvis der er hævet 117 gange i løbet 
af året og indsat dobbelt så mange 
gange ? Se så bliver det straks 
meget mere kompliceret. Man kan 
bruge flere metoder, men jeg vil kun 
vise en af dem. Denne metode kaldes 
den progressive metode. 

Et af de første problemer er at man 
skal tælle dage imellem de 
forskellige dage, til dette har jeg 
konstrueret et lille program, som 
var meget svært at lave (tak til 
Richard for assistance), dette lille 
program kan tælle dage imellem to 
datoer indenfor samme år ! ! 
Programmet tager også højde for om 
der er tale om skudår. En lille ting 
er at programmet IKKE tæller den 
første dag med, husk dette. 

I praksis regner man ikke hele tiden 


renten ud i kr. og øre, man benytter 
sig af rentetal. Når det totale 
rentetal for hele året er fundet kan 
det omregnes til kr. og øre. 

Hver enkelt postering på 
kontoudskriften behandles på 
følgende måde: 


Eks : 

På en konto der 3 % P.A (pr. år) 
indsættes der 13.01.86 kr. 22.000,00 
dette beløb får valør (fra den dag 
at beløbet trækkwr rente) d. 
14.01.86 

Først finder vi ud af hvor mange 
dage der er fra den 13.01.86 til 
31.12.86, der er 351 dage 

Nu findes rentallet for denne 

postering, følgende formel bruges: 

Postering * rentedage 


100 


22.000,00 * 351 
100 


77220 rt.nr. 


disse rentenumre er et plus for ham 
der satte pengene ind, men hvad sker 
der nu hvis han nu hæver dagen efter 
? 


Eks: 

14.01.86 hæves der 93.501,49 kr. med 
valør samme dag. 

Ja der er stadig 351 dage til 
31.12.88, så vi bruger samme formel 
som sidst. 

93.501,49 * 351 

= 328190 rt.n 

100 


da dette er en hævning skal der 
egentlig et minus foran. 













*•**■* RENTER FRA HENRIK -*-*•*-* 


Lad os så se hvad vor person fik ud 
af disse to posteringer 

Post 1.: + 77220 

Post 2.: - 328190 


Ialt - 250970 

Det vil sige at der til nytår venter 
fyren en ubehagelig overraskelse da 
han vil blive tilskrevet en negativ 
rente. 


Lad os omregne dette rentetal til 
hårde kontanter 

Rentetalsaldo * Rentesats 


365 


- 250970 * 3 

- = - 2062 kr. 

365 

Formentlig vil denne negative rente 
være ophævet ved en ligeså stor 
indsætnig på kontoen. 

Synes du at det var indviklet ? 
Overhovedet ikke, hvad så hvis der 
435 posteringer, to forskellige 
rentesatser o.s.v hvilket ikke er 
unormalt i det virkelige liv ja så 
var der noget ved det. 

Før i tiden sad man og regne disse 
ting ud ved hjælp af en gåsefjer og 
et ark papir (og det er ikke løgn 
!!) i dag har man EDB maskinen til 
at klare sagerne, gudskelov for det, 
men nu skulle du selv være istand 
til at kontrollere om banken har 
snydt dig. 


10 ’.DASEBERE6NING HELLEM 2 DATOE 

R 

20CQLQR 15,1,1:HIDTH 40sCLS 
30 DIH 0(12) 

40 INPUT "Fra Dato:"jF$ 

50 INPUT "Til Dato:";T$ 

60 A$=RI6HT$(F$,2) 

70 DWH6HT*(TI,2> 

BO B*=MID$(F*,3,2) 

90 E*»MID$(T$,3,2) 

100 C$=MID$(F$, 1,2) 

110 FWID»(T*,1,2I 
120 A1=VAL(A$) 

130 A2=VAL(D$) 

140 M1=VAL(B$) 

150 H2 s VAL(E$) 

160 D1=VAL(C$) 

170 D2=VAL(F$! 

ISO 'BEREGNINGER 
190 GQSUB 340 
200 ANTAL=0 

210 ’.DER CHECKKES FOR BKUDAAR 

220 IF Al/MNT(Al/4)THEN MARK=1 

230 ’.BEREGNINGER STARTER HER 

240 YOA2-A1 

250 IF YOO THEN LOCATE 0,10: PRINT "DET 
TE PROGRAM UDREGNER KUN ANTAL DAGE IN 
DEN FOR ET R":F0R T=1 TO 1000:NEXT:CLS: 
GOTO 30 

260 IF H1=M2 THEN 310 
270 FOR W S M1 TO H2-1 
280 ANTAL=ANTAL+Q(W) 

290 IF M AND MARK=1 THEN ANTAL=ANTAL+ 

1 

300 NEXT H 

310 ANTAL=ANTAL+D2-D1 

320 PRINT: PRINT" !*«**»{ ANTALj"Wl«" 

330 END 

340 FOR C=1 TO 12 
350 READ F:Q(C)=F 
360 NEXT C 

370 DATA 31,28,31,30,31,30,31,31,30,31, 
30,31 

380 RETURN 


Henrik Larsen 












Capeam 

vi ide vastet; er fa lavet 
endnu vildene, nom sherif ten du dun 
stole pe dig selv, og snyde imrnd lier¬ 
ne fgn' go 9 sig; i 
vad .jernbanen, i "b jengs I uytan og på 
fol o dan de en avle vogne 3*7- 

Code? Mastens 

Bmx Simulator' - Fuld fart frem gennem 
grusbanen t kør din fiodstander i sænk 
Inden han gør det mod dig, i/2 spi« 38.*? 

Al ternat ive 

Banqer Mouse In Black Forest Ohateau - 
adventure i to dele 38,. 


HAL 

Hole in One Professionel - bedste golf, 

2 baner rn. hver 18 huller + lav egne _ 
baner, i/2 spillere 277v 

Hole in’One Special . MSX2, 2 sæt 18 

huls banet?-, 18 golf køl 3. em, 3 spil¬ 
for 1/2 spillere, 128K 295, ■ 


U.S. Gold 

lOth Frame - bowling for 1 til 8 spil,-, 
med korrekte regler og rn, bla. mulig¬ 
hed for at skrue kuglen 68« 

Pirebird 

Elite - det store jnter ga laet i ske rttrn-- 
eventyr i 31) vektor-grafik, naviger 
og land på ny< > tf r 

pirater som vi 1g ive dig'et rygte som 
topper; af e 1 iten, en f in bIan8inq af 
action og strategi, fyldig baggrunds/« 
h i st or i e" og i nstfukt i. bner ’ 

kassette 2.1.5,- , disk 249, 

Enduranee Games 

Internat i.ona i Karate • 

jorden rundt* for 1/2 so i liere 68, 


CDS 

Colosus Chess 4,, 0 . bedeta skak, 3.0/21; 

synsvinkel, fortryd træk, demospil, 
opstil b mi tom r, r ep lav, var* i at:; si 
sværhedgrad, der; rlygt igasto computer 
modstander mmti'mq 1850+1:11/;) , progra-fn 
engelsk tekst, hol mindsk instmife 144, 


Aa.o k osof li 

samlinq; 'The Helst, Sk out er', Somvery« 
tneldef'DasI; i 7 II, Husly, Oh Smit,"' 
Aeaeh Read, Masbgrvcelce, 3py vs. Gpy, 
o i wu jr tn ? 

■i mange flere 

kaes-Bir^e 3.93,. disk 295,- 

ried Liv-dit. m7 Amimmv.ia:;; . slim' p-poker med 

f 3 o rim vi den 7 i.g ; tal. i se rede b i 13 oder , 
ror- 7(8X2 computere 

kassette 78, - 

Epyx 

- rejs kloden rundt for at 
dyste .i 8 speciel}# sportsgrene? *~ 
tø 1 

• I « 

rulning, tyre? 1 Sining rodeo, tømmer 

.’sporfespi 1 

fra Epyti med stor varia?: i on 144,,- 

Imag ine 

Basket Master - Bliv på toerne mens du 
dribler bolden ned af baner; med mod¬ 
standeren lige i melende, med en 
rolig hånd og et ^ikkert ø$ternål kast 
boldén rnod kurven. Forsvar din none, 
tackle modstanderen, følg tiden, løb, 
spring og dunk bolden gennem nettet, 
se dine bevægelser i giow-lfl-otion 

1/2 pers« 128«- 

Kuma 

al le op lyn - 

n i i i te opbygning, et 

Sjask i nkode kodere 148« - 

5,725" neutral disk, 2 sidet, 20 stk« .110,m 
3,5" neutral disk, '2 sidst, 10 stk, .1.40,,-• 


AJ. le priser er irikl. dansk moms« Forbehold 
for trykf&jp, pr isændr inger og udsolgte 
vam-tv, GRATls' forsendelse ved forud¬ 
betaling med check/g 1 ro, Best i klinger 

i 1 I „ i00,. ti Hægges dog km, 20 

ekped i. t i nnsqebyr , 

S a'!. g i: i. I h e l e S k: and i n a v i o nV e d k P b f f a 

u' ’ i i ‘ , 3 e i p å 

s* t* og , tf hvad du ønsker 

på bagsiden. 


























